Агата
6 год назад
1 Пожалуйста. Напишите программу
ОТВЕТЫ
Люциевич
Jul 2, 2019
Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
108
Смежные вопросы:
