Предмет: Информатика,
автор: supernaturalьная67
Написать программу!!!!!
дана непустая последовательность целых чисел, оканчивающихся нулем. Найти количество всех членов последовательности.
Ответы
Автор ответа:
2
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Count.Println
end.
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Count.Println
end.
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
9
//Версия 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
Похожие вопросы
Предмет: Алгебра,
автор: cofilog197396
Предмет: Математика,
автор: inessaart93
Предмет: Биология,
автор: demidovadiana013
Предмет: Математика,
автор: коссська
Предмет: Экономика,
автор: nosovatanechka