Question

Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается нулем.(a=0 признак окончания ввода , ноль не входит в последовательность). Программа должна вывести количество и сумму всех чисел последовательности.

Answer 1

var a, b, c: integer;
begin
b:=0;
c:=0;
readln(a);
while a <> 0 do
begin
b:=b+1;
c:=c+a;
readln(a);
end;
writeln('Кол-во: ',b);
writeln('Сумма: ',c);
end.