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

Question

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

Answer 1

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

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

Comments

Оу, не успел)

---

А можете эту же программу написать с использованием цикла с параметром

---

Просто мы такое еще не проходили

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 

Comments

Я подумал раз дана, значит она где-то храниться)

---

тся*

---

Я знаю, что хранится только 1 число, это количество

---

Но по-сути в начале то последовательность)

---

Он этого не сделал(