Найдите сумму последовательности натуральных чисел, если признаком окончания последовательности является два подряд идущих числа 0. числа стоящие после двух нулей в решении участвовать не должны.
входные данные: вводится последовательность натуральных чисел.
выходные данные: выведите ответ на .
решить на питоне!
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