Вводится строка текста из N символов, слова разделены одним пробелом. Найти длину самого длинного слова. Написать программу в Паскале.

Question

Арина Устинова

Информатика

12 августа, 01:43

Вводится строка текста из N символов, слова разделены одним пробелом. Найти длину самого длинного слова. Написать программу в Паскале.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Илья Маслов · Answer 1

var i, k, l:integer; s:string; begin readln (s); k:=0; i:=1; while ibegin l:=0; while (s[i]' ') and (i begin l:=l+1; i:=i+1; end; i:=i+1; if l>k then k:=l; end; writeln (k); end.