Дано текст. Найти наибольшее количество цифр стоящих в нем рядом

 

Текст считывается из файла или вводится с клавиатуры?

 

текст вводится из клавиатуры

 

Вроде работает

var s:string;
k,k2,i:integer;

begin
writeln('vvedit text');
readln(s);
k:=0;
k2:=0;
for i:=1 to length(s) do
begin
if (s[i]='0')or(s[i]='1')or(s[i]='2')or(s[i]='3')or(s[i]='4')or(s[i]='5')or(s[i]='6')or(s[i]='7')or(s[i]='8')or(s[i]='9') then
begin
k2:=k2+1;
end
else
begin
if k<k2 then k:=k2;
k2:=0;
end;
end;
writeln('maksimalnoje kolichesto zifr stojachih rjadom = ',k);
readln;
end.

 

Dock1100
может, проще с множествами?) а то слишком много сравнений(

Добавлено:

if (s[i] in ['0'..'9']) then //если я правильно помню

 

можно