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