Question

Написать программу!!!!!дана непустая последовательность целых чисел, оканчивающихся нулем. Найти количество всех членов последовательности.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Count.Println
end.

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var a:=ReadSeqIntegerWhile(t->t<>0).Count.Println;
end.

Пример:
1 2 3 4 5 6 7 8 9 0
9 

Answer 3

Для решения данной задачи можно написать программу на любом языке программирования. Вот пример программы на языке Python:

sequence = []  # создаем пустой список для хранения последовательности

# вводим числа последовательности, пока не будет введен 0
while True:
    num = int(input("Введите число: "))
    if num == 0:
        break
    sequence.append(num)

# выводим количество элементов в последовательности
print("Количество элементов в последовательности:", len(sequence))

Программа работает следующим образом: 1. Создается пустой список `sequence`, в который будут добавляться числа последовательности. 2. В цикле `while` осуществляется ввод чисел последовательности с клавиатуры. Если введенное число равно 0, то цикл прерывается с помощью команды `break`. 3. Введенные числа добавляются в список `sequence` с помощью метода `append()`. 4. После окончания ввода чисел, программа выводит количество элементов в последовательности с помощью функции `len()`.