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