Спрограммой. язык #паскаль. дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). найти длину самого длинного слова.

288

368

Посмотреть ответы 2

Ответы на вопрос:

ABCD11111111

Информатика

4,6(90 оценок)

Program number3; var str: string; i: integer; shortest, longest, current: integer; begin readln(str); shortest : = 255; longest : = 0; current : = 0; for i: =1 to length(str) do begin if (str[i] < > ' ') then current : = current + 1 else begin if current > longest then longest : = current; current : = 0; end; end; if current > longest then longest : = current; writeln(longest); readln; end.