Вводить положительные числа до тех пор, пока сумма их произведений не станет больше 10000 - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Вводить положительные числа в переменные a и b до тех пор, пока сумма произведений вводимых чисел не станет больше 10000. помогите, сделайте на уровне 11 класса.

Решение задачи: «Вводить положительные числа до тех пор, пока сумма их произведений не станет больше 10000»

textual
Листинг программы
program rsjer;
uses 
  CRT;
var
  a, b, sum: Integer;
begin
  sum := 0;
  repeat
    write('vvedite a= ');
    readln(a);
    write('vvedite b= ');
    readln(b);
    sum:= sum + a*b;
  until ((a<0) or (b<0) or (sum > 10000));
  if (sum < 10000) then
    writeln('bilo vvedeno otritsatelnoe chislo')
  else
    writeln('summa = ', sum);
end.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных a, b и sum типа Integer.
  2. Переменная sum инициализируется значением 0.
  3. Запускается цикл repeat, который будет выполняться до тех пор, пока не будет выполнено одно из условий:
    • a меньше 0 или b меньше 0 или sum больше 10000.
  4. Внутри цикла пользователю предлагается ввести два числа a и b.
  5. Значение sum увеличивается на произведение a и b.
  6. После выполнения цикла, проверяется значение sum.
  7. Если sum меньше 10000, выводится сообщение bilo vvedeno otritsatelnoe chislo.
  8. Если sum больше или равно 10000, выводится сообщение summa =, и значение sum.

Оцени полезность:

13   голосов , оценка 3.615 из 5
Похожие ответы