Question

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

Answer 1

Если я правильно понял задание, то вот:

var d, p, n:Real;

begin

d := 0; p:= 1;

while (p <= 1000) do begin

   read(n);

   if (n >0) then d := d-n;

   p := p*n;

end

writeln();

writeln('Разность: ', d);

end.

Answer 2

Для вычисления разности всех введенных чисел с условием выхода из цикла по произведению чисел больше 1000, можно использовать следующую программу на языке Паскаль:

pascalCopy code
program DifferenceCalculator;

var
  inputNumber, product, difference: Integer;

begin
  product := 1; // Инициализируем произведение единицей
  difference := 0; // Инициализируем разность нулем

  while product <= 1000 do // Пока произведение меньше или равно 1000
  begin
    Write('Введите число: ');
    Readln(inputNumber);

    // Обновляем значения произведения и разности
    product := product * inputNumber;
    difference := difference - inputNumber;
  end;

  // Вычисляем разность всех введенных чисел
  difference := difference + product;

  // Выводим результат
  Writeln('Разность всех введенных чисел: ', difference);
end.

Программа будет считывать числа с клавиатуры и умножать их на произведение, пока произведение чисел не станет больше 1000. После этого, произведение всех введенных чисел будет вычтено из общей разности, и результат будет выведен на экран.