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

0 голосов
228 просмотров

Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти: сумму всех чисел последовательности.
Входные данные: 12, 4, 8, 0
Выходные данные: 24


Информатика (25 баллов) | 228 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

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

image
(150k баллов)