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

Ответы 1

  • vara,s:integer;begin  s:=0;  repeat  readln(a);  s:=s+a;  until a=0;  writeln('Сумма чисел: ',s);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years