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

103

400

Посмотреть ответы 3

Ответы на вопрос:

помогитепожалуйста95

Информатика

4,6(53 оценок)

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

mirnayamilena

Информатика

4,5(79 оценок)

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