Вопрос по информатике:
Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. Пример - 00101110000110 - 4. Прошу сделать без использования массивов и на языке паскаль абс.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.07.2016 21:07
- Информатика
- remove_red_eye 11398
- thumb_up 33
Ответы и объяснения 1
i, n, max: integer;
s: string;
begin
n := 0;
max := 0;
readln(s);
for i := 1 to length(s) do
begin
if(s[i] = '0') then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
end;
write(max);
end.
- 22.07.2016 22:07
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.