Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.
Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Похожие вопросы