Дана строка S, состоящая из слов, разделённых пробелами. Найдите в строке S слово максимальной длины.
Программа на паскаль плизз...
Answers & Comments
PopCop312
Var s:string; i,m,n:integer; begin readln(s); n:=-1; for i:=1 to length(s) do begin n+=1; if (s[i]=' ') or (i=length(s)) then begin if n>m then m:=n; n:=0; end; end; writeln(m); end.
Answers & Comments
i,m,n:integer;
begin
readln(s);
n:=-1;
for i:=1 to length(s) do begin
n+=1;
if (s[i]=' ') or (i=length(s)) then begin
if n>m then m:=n;
n:=0;
end;
end;
writeln(m);
end.