Цитата:
Сообщение от Kup9
Для введенной строки определить длину содержащейся в ней максимальной серии символов, отличных от букв.
|
Program qwerty;
uses crt;
var
str:string;
i,cnt,max:integer;
begin
clrscr;
writeln('Vvedite straka'); readln(str);
for i:=1 to length(str)
do begin
if ( str[i] in ['a'..'z']) or (str[i] in ['A'..'Z']) then
begin
if cnt>max then max:=cnt;
cnt:=0;
end
else
inc(cnt);
if cnt>max then max:=cnt;
end;
writeln('max = ',max);
readkey;
end.