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

1

Ответы и объяснения

2013-10-07T19:01:50+00:00
Var
a,s:integer;
begin
  s:=0;
  repeat
  readln(a);
  s:=s+a;
  until a=0;
  writeln('Сумма чисел: ',s);
end