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

Question

Дана непустая последовательность чисел оканчивающаяся нулем. Найти: а) сумму всех чисел последовательности, б) кол-во всех чисел последовательности.решить через Pascal ABC через repeat,for или while

Answer 1

Var
a, s, n: integer;
begin
n:=0; s:=0;
repeat
readln(a);
inc(n);
inc(s, a);
until a = 0;
writeln('Сумма: ', s);
writeln('Количество: ', n);
end.