• спросить у пользователя два числа. используя while посчитать сумму целый чисел между этими числами включительно.Вывести ответ на экран.Решить с помощью паскаль ABC.

Ответы 1

  • var a, b, sum: Integer;begin writeln('Введите числа:'); ReadLn(a, b); sum := 0; while b > a - 1 do begin sum := sum + b; b := b - 1; end; WriteLn('Сумма чисел = ', sum);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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