Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и...

Question

Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц.
Пример: 00101110000110 Ответ:4;
Программу нужно написать на Паскале

Answer 1

Var s: string;
    bg,k,i,l: integer;
begin
  write('строка:  ');
  readln(s);
  i:=1;  bg:=0;  k:=0;
  l:=length(s);
  while (i  begin
    while (s[i]<>'0') and (i    bg:=i;
    while (s[i]='0') and (i    if i=l then bg:=bg-1;
    if k  end;
  writeln('длина макс. последоват. из нулей = ',k);
end.
    

Answer 2

Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем

Comments

а черт, на минутку не успел))