Найдите сумму последовательности натуральных чисел, если признаком окончания последовательности является два подряд идущих числа 0. Числа стоящие после двух нулей в решении задачи участвовать не должны.
Входные данные: Вводится последовательность натуральных чисел.
Выходные данные: Выведите ответ на задачу.
Решить на питоне!
Входные данные: Вводится последовательность натуральных чисел.
Выходные данные: Выведите ответ на задачу.
Решить на питоне!
Answers & Comments
Ответ:
var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
Read(n);
if n<>0 then begin
if n=npred then Inc(nseq)
else begin nseq:=1; npred:=n end;
if maxs<nseq then maxs:=nseq
end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.
Тестовое решение:
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2