Question

Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд.

Answer 1

uses crt;
var s:string;
    i,l,max:integer;
    M:set of char;
    flag:boolean;
begin
  clrscr;
  writeln('Введите строку ...');
  readln(s);
  M:=['0'..'9'];
  flag:=false;
  i:=0;l:=0;max:=0;
  repeat
    inc(i);
    if s[i] in M then
    begin
      if flag=false then
      begin
        flag:=true;
        l:=1;
      end
      else inc(l);
    end
    else begin
   if flag then
   begin
     if max<l then max:=l;
     flag:=false;
   end
   end;
  until i=length(s);
  if l>max then max:=l;
  writeln(max);
  readln;
end.