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

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

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

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

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.

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы