Question

Напишите программу вычисления произведений.(Turbo Pascal)

(x-1)(x-2)(x-3)...(x-n);

Answer 1

var x,n:integer;

begin

readln(n);

readln(x);

for i=:1 to n do

x:= (x-i);

end.

Если решение задачи будет не верно, извените значит надо писать более подробно.

Answer 2

а что за
?

Answer 3

Решение в ответах и объяснениях исправил.

Answer 4

так у тебя всеравно так br

Answer 5

Ну я всмсле из коменнов занёс в главный ответ.

Answer 6

ааа