Question

ВХОДНЫЕ ДАННЫЕ
Дана последовательность натуральных чисел, в конце которой идет число 0.
ВЫХОДНЫЕ ДАННЫЕ
Определите, сколько элементов этой последовательности больше предыдущего. Числа, идущие за нулем, считывать не нужно.

Язык Python или Pascal

Answer 1

ans = 0

a, b = 1, -1

while b != 0:

   a, b = b, int(input().strip())

   if a < b and a != -1:

       ans += 1

print(ans)

Answer 2

ВЫВОД 2

Answer 3

ну просто в строчку вводи

Answer 4

или переделать под столбик обязательно?

Answer 5

под столбик обязательно

Answer 6

ок

Answer 7

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

Answer 8

Вводить все равно как - сколько угодно в строках и сколько угодно в столбцах, смешивая столбцы и строки.

Answer 9

И да, если надо с нецелыми работать, вместо ReadSeqIntegerWhile просто указывается ReadSeqRealWhile