Question

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

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (s, k) := (0, 0);

 ReadSeqIntegerWhile(t -> t <> 0).ForEach(t -> begin k += 1; s += t end);

 Println('Количество чисел ', k, 'сумма', s)

end.