Question

Найдите сумму последовательности натуральных чисел, если признаком окончания последовательности является два подряд идущих числа 0. Числа стоящие после двух нулей в решении задачи участвовать не должны.

Входные данные: Вводится последовательность натуральных чисел.
Выходные данные: Выведите ответ на задачу.

Решить на питоне!

Answer 1

Ответ:

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