Question

Pascal.СРОЧНО. Даны натуральные числа а, n.
Вычислить
a(a-n)*(a-2n)...(a-n*n)

Answer 1

Должно быть правильно, проверь на тестах.
var
a,c,d,n:longint;
begin
read(a,n);
d:=1;
for c:=1 to n do
d:=a*(a-n*c)*d;
writeln(d);
end.