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

Я забыл указать,что необходимо вычислить разность всех введенных положительных чисел.

Answer 3

а ну тогда в строке где вычисляем разность пишем if( n > 0) then d := d-n; вместо d := d-n;

Answer 4

Спасибо Большое!

Answer 5

Пожалуйста)