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

Question

Информатика

Северина

3 марта, 22:44

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

+4

Ответы (1)

Знаете ответ на вопрос?

Роба · 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.