Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0

Question

Цвета

5 ноября, 08:48

+2

Ответы (1)

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

Нилка · Answer 1

Var

a, s:integer;

begin

s:=0;

repeat

readln (a) ;

s:=s+a;

until a=0;

writeln ('Сумма чисел: ', s) ;

end.