Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.

Question

Информатика

Рима

13 сентября, 04:34

Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.

+3

Ответы (1)

Знаете ответ?

Люся · Answer 1

Var s:string;

m, tmp, i:integer;

begin

readln (s) ;

for i:=1 to length (s) do begin

if (s[i]' ') then inc (tmp)

else begin

if tmp>m then m:=tmp;

tmp:=0;

end;

end;

if tmp>m then m:=tmp;

writeln (m) ;

end.