Ответ(ы) на вопрос:
Гостьvar
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы
Гость