В Паскале! Ввести с клавиатуры строку и определить в ней максимальную серию символов, отличных от букв.

program zz1;

var s:string; / / задаем переменную строкового типа

i, kol, max:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

kol:=0; max:=0;

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

begin

if ((ord (s[i]) >=65) and (ord (s[i]) = 97) and (ord (s[i]) <=122))

then begin if kol > max then max: = kol; kol:=0; end else kol:=kol + 1;

end;

write (' максимальная серия = ', max);

end.