с клавиатуры вводятся произвольные числа необходимо вычислить разность всех введенных чисел условием выхода из цикла является произведение чисел больше 1000
Написать программу на языке паскаль
Написать программу на языке паскаль
More Questions From This User See All
Answers & Comments
Если я правильно понял задание, то вот:
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.