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

Написать программу на языке паскаль

Question

Информатика

Апсели

28 июня, 19:05

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

Написать программу на языке паскаль

+3

Ответы (1)

Знаете ответ?

Бартель · 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.