Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.