Напечатать самое длинное слово предложения - Turbo Pascal (33972)

Формулировка задачи:

Дано предложение. Напечатать его самое длинное слово (принять, что такое слово — единственное) .

Код к задаче: «Напечатать самое длинное слово предложения - Turbo Pascal (33972)»

textual
var s:string;
i,m,z,n:integer;
k,b1,b2:array[1..100] of integer;
begin
readln(s); b1[1]:=1;
for i:=1 to length(s) do
begin z:=z+1;
if (s[i]=' ') or (i=length(s)) then begin m:=m+1; k[m]:=z-1; z:=0; b1[m+1]:=i+1; b2[m]:=i-1; end;
end;
k[m]:=k[m]+1; z:=k[1]; b2[m]:=length(s); n:=1;
for i:=1 to m do
if k[i]>z then begin z:=k[i]; n:=i; end;
for i:=b1[n] to b2[n] do
write(s[i]);
readln
end.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ