Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. Пример: 00101110000110 Ответ:4; Программу нужно написать на Паскале
Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц.
Пример: 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'0') and (i