Процессор и его характеристики. Урок 1 Представим ситуацию: Пользователь вводит текст, используя клавиатуру. Какая из функций процессора позволяет преобразовать вводимый текст в двоичный формат?
компьютер несет негативное воздействие на здоровья человека.
в первую очередь - на зрение. при высокой яркости и близким расположением большого монитора глаза сильно портятся из-за чего зрение может уйти в минус или может начать развиваться близорукость.
следующее - осанка. мало людей, которые пользуются компьютером, следят за осанкой.
и не мало важное - человек, много проводящий времени за компьютером вытесняется с социума и отвыкает от общения с людьми. так же мало активности, что может привести к многочисленным заболеваниям.
гипотеза: существует мнение, что компьютер вытесняет с жизни людей живое общение.
как уберечь здоровье:
монитор компьютера должен быть на расстоянии 40-55 см от лица. желательно пользоваться компьютером не более 40 минут, так же делать перерывы 5-15 минут. следить за осанкой. меньше уделять времени компьютеру и больше прогулкам, спорту, общению.
компьютер несет негативное воздействие на здоровья человека.
в первую очередь - на зрение. при высокой яркости и близким расположением большого монитора глаза сильно портятся из-за чего зрение может уйти в минус или может начать развиваться близорукость.
следующее - осанка. мало людей, которые пользуются компьютером, следят за осанкой.
и не мало важное - человек, много проводящий времени за компьютером вытесняется с социума и отвыкает от общения с людьми. так же мало активности, что может привести к многочисленным заболеваниям.
гипотеза: существует мнение, что компьютер вытесняет с жизни людей живое общение.
как уберечь здоровье:
монитор компьютера должен быть на расстоянии 40-55 см от лица. желательно пользоваться компьютером не более 40 минут, так же делать перерывы 5-15 минут. следить за осанкой. меньше уделять времени компьютеру и больше прогулкам, спорту, общению.
Pascal
var
s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
i : integer;
s1, sR : string;
begin
s:=s+' ';
i :=1;
sR :='';
s1:='';
while i <= length(s) do begin
if (s[i] = ' ') then begin
if s1[1] <> UpperCase(s1[1]) then
sR := sr + s1 + ' ';
s1:=''
end
else
s1:=s1 + s[i];
inc(i);
end;
delete(sR, length(sR), 1);
print(sR);
end.
А вот на PascalABC.Net. заметно короче будет
begin
var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();
println(a);
end.