Question

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

Answer 1

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 2

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 3

Конечно, вот пример решения данной задачи на языке Python:

pythonCopy code
# Инициализируем счетчик количества чисел, больших предыдущего
count = 0

# Считываем первое число
previous_number = int(input())

# Читаем последующие числа и проверяем условие
while True:
    number = int(input())
    if number == 0:
        break
    if number > previous_number:
        count += 1
    previous_number = number

# Выводим количество чисел, больших предыдущего
print(count)

Этот код считывает последовательность чисел, завершенную нулем, и подсчитывает, сколько чисел больше предыдущего числа. Когда вводится 0, программа выводит количество чисел, удовлетворяющих условию задачи.