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

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

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

Question

Информатика

Галуша

20 октября, 05:36

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

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

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

+4

Ответы (2)

Знаете ответ на вопрос?

Любава · Answer 1

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

Лавря · Answer 2

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.

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

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

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

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