Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0
Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0
Гость
Ответ(ы) на вопрос:
ГостьVar
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
end
Не нашли ответ?
Похожие вопросы