Question

Написать програму для обчислення добутків виду (х-1)(х-2)(х-3)...(х-n)

(P.S скласти програму и блок схему)

Answer 1

var

i,n,x:integer;

p:longint;

begin

write ('X = ');readln(x);

repeat

write ('N = ');readln(n); 

until (n>0);

p:=1; 

for i:=1 to n do p:=p*(x-i);

writeln ('Proizvedenie: ',p);

readln;

end.