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

Пример: 00101110000110 Ответ: 4;

Программу нужно написать на Паскале

Question

Информатика

Манюра

9 июня, 23:25

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

Пример: 00101110000110 Ответ: 4;

Программу нужно написать на Паскале

+1

Ответы (2)

Знаете ответ?

Ксенья · 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

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

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

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

Пример: 00101110000110 Ответ: 4;

Программу нужно написать на Паскале