(х-1)(х-2)(х-3).. (х-n)паскаль

Question

(х-1)(х-2)(х-3).. (х-n)
паскаль

Answer 1

//прога на Pascal`e
var
n: uint64;
x : int64;
//
function f (a, p:int64):int64;
var i, sum: int64;
begin
sum:=1;
for i:=1 to p do
sum:=sum*(a-i);
f:=sum;
end;
//
begin
readln (x, n);
write (f(x, n));
end.

Comments

И зачем я выпендривался с 8-байтными числами?! Компьютер всё равно такой объем вычислений не потянет!

---

Спасибо!!!!