Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц.
Пример: 00101110000110 Ответ:4;
Программу нужно написать на Паскале
Пример: 00101110000110 Ответ:4;
Программу нужно написать на Паскале
More Questions From This User See All
Answers & Comments
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.