Program PR1;
uses crt;
var stroka,tmp:string;
i,b,max:integer;
Begin
clrscr;
readln(stroka);
max:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
if length(tmp)>max then max:=length(tmp);
tmp:='';
end
else begin
tmp:=tmp+stroka[i];
if i=length(stroka) then if length(tmp)>max then max:=length(tmp);
end;
writeln(max);
end.
Инструкция в скриншотах ниже.
64 = 2^6 т.е. занимает 6 бит на символ
6*100 = 600 бит
600/8 = 75 байт
Var
t,st:real;
i:integer;
begin
for i:=1 to 7 do begin
readln(t);
st:=st+t;
end;
writeln('Средняя температура за первую неделю сентября: ',st/7,' °C');
end.<span>
</span>
Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s k
0 1
4 4
11 7
21 10
34 13
50 16
69 19 ← s > 66. Выводим k.