Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.