Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.
Answers & Comments
PopCop312
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.
Answers & Comments
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.