Question

Помогите пожалуйста! Составить программу в паскаль, которая после ввода целого отрицательного числа N подсчитывает произведение всех отрицательных целых чисел от N до -N.

Answer 1

Ответ:

program NegativeProduct;

var

N, i, product: integer;

begin

write('Enter a negative integer: ');

readln(N);

product := 1;

for i := N to -N do begin product := product * i; end;

writeln('The product of all negative integers from ', N, ' to ', -N, ' is ', product);

end.