Предмет: Информатика, автор: supernaturalьная67

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

Ответы

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

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

Giammy: Оу, не успел)
supernaturalьная67: А можете эту же программу написать с использованием цикла с параметром
supernaturalьная67: Просто мы такое еще не проходили
Автор ответа: Giammy
1
//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


Giammy: Я подумал раз дана, значит она где-то храниться)
Giammy: тся*
Giammy: Я знаю, что хранится только 1 число, это количество
Giammy: Но по-сути в начале то последовательность)
Giammy: Он этого не сделал(
Похожие вопросы
Предмет: Алгебра, автор: cofilog197396
Предмет: Математика, автор: коссська