ВХОДНЫЕ ДАННЫЕ
Дана последовательность натуральных чисел, в конце которой идет число 0.
ВЫХОДНЫЕ ДАННЫЕ
Определите, сколько элементов этой последовательности больше предыдущего. Числа, идущие за нулем, считывать не нужно.
Язык Python или Pascal
Дана последовательность натуральных чисел, в конце которой идет число 0.
ВЫХОДНЫЕ ДАННЫЕ
Определите, сколько элементов этой последовательности больше предыдущего. Числа, идущие за нулем, считывать не нужно.
Язык Python или Pascal
More Questions From This User See All
Answers & Comments
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t -> t <> 0).Incremental
.Where(t -> t > 0).Count.Println
end.
6 -8 9 -8 -5 7 7 -5 9 2 -8 10 1 -3 2 4 -2 -1 -4 0
8
5
1
2
3
0