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

Question

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

Answer 1

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

var d, p, n:Real;

begin

d := 0; p:= 1;

while (p <= 1000) do begin</p>

   read(n);

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

   p := p*n;

end

writeln();

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

end.

Comments

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

---

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

---

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

---

Пожалуйста)