Задать вопрос Регистрация
Помочь другим

  • составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы.

Ответы 1

  • var a,b,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