Этот код на Паскале отвечает за нахождение самого длинного слова в одной! строчке. Нужно сделать так, чтобы можно было записать сколько угодно строчек и он нашёл в них самое длинное слово (цикл добавить, по-моему). var
s,st,smax: string;
i:byte;
BEGIN
readln(s);
if s[length(s)]<>' ' then
s:=s+' ';
st:=''; smax:='';
for i:=1 to length(s) do
if s[i]<>' ' then
st:=st+s[i]
else begin
if length(smax) smax:=st;
st:='';
end;
writeln('Самое длинное слово: ',smax);
writeln('Кол-во букв: ',length(smax));
END.
s,st,smax: string;
i:byte;
BEGIN
readln(s);
if s[length(s)]<>' ' then
s:=s+' ';
st:=''; smax:='';
for i:=1 to length(s) do
if s[i]<>' ' then
st:=st+s[i]
else begin
if length(smax) smax:=st;
st:='';
end;
writeln('Самое длинное слово: ',smax);
writeln('Кол-во букв: ',length(smax));
END.