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

Question

Семен

22 ноября, 02:47

+2

Ответы (1)

Знаете ответ?

Беня · Answer 1

Var

a, s:integer;

begin

s:=0;

repeat

readln (a) ;

s:=s+a;

until a=0;

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

end.