Вывести самую длинную последовательность четных цифр в строке.

[Алексаndra]

Дана строка символов, содержащая цифры.
Вывести самую длинную последовательность четных цифр в строке.

[digitalis]

Это кому задание - мне ?
Как говорит Якубович: "Ваш код - в студию!" А иначе - некак. Разве что Неверов...

[newerow1989]

Сообщение от digitalis

Разве что Неверов...

Это точно!

var s,s1:string;
    i,c,c1:integer;
begin
   Write('s = '); Readln(s);
   c:=0;
   c1:=0;
   s1:='';
   For i:=1 to Length(s) do
      If Pos(s[i],'02468')>0 then
         c1:=c1+1 else
      begin
         If c<c1 then
         begin
            c:=c1;
            s1:=Copy(s,i-c,c);
         end;
         c1:=0;
      end;
   Writeln('s1 = ',s1);
   Readln;
end.