Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
1) из повседневной жизни школьника
каждую неделю, по будним дня, нужно идти в школу. (цикл на каждый день с исключением выходных)
По литературе задали выучить стих. На уроке проходятся циклом по всем ученикам и говорят рассказывать этот стих и потом оценивают
2) И днем и ночью кот ученый все ходит по цепи кругом
Колобок. Я от бабушки ушел, я от дедушки ушел, я от зайца ушел.. (цикл по обьектам)
3) физика. лабораторная, поставить некий эксперемент несколько раз с разными параметрами. Параметры меняются, действия одни и те же
Нахождение корней уравнения путем половинного деления (цикл повторяется пока не достигается определенная точность ответа)
1)
2*60=120 байт в строке
120*40=4800 байт на старнице
4800*1500= 7 200 000 байт=7.2 Мбайт во всей книге
2)
60*40=2400 байт
2400*150=360 000 байт =360 Кбайт=0.36 Мбайт
3)
128 Кбайт= 128 000 байт
128 000\ 2=64 000 символов
4)
1.5 Кбайт=1536 байт
1536*8=12288
12288\3072=4 бит
5)
в 1 Мбайте 1572864 байт
1572864\512=3072 байта=24 576 бит размер сообщения
24 576\2048=12 бит - размер одного символа
6)
8 бит = 1 байт
48*1=48 байт в строке
48*40=1920 байт в странице
1920*8= 15 360 байт в рассказе
15 360 байт= 15 Кбайт