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

Question

Информатика

Лаврен

6 февраля, 02:43

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

+4

Ответы (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.