Pascal.СРОЧНО. Даны натуральные числа а, n. Вычислить a(a-n)*(a-2n)...(a-n*n)
Pascal.СРОЧНО. Даны натуральные числа а, n.
Вычислить
a(a-n)*(a-2n)...(a-n*n)
Гость
Ответ(ы) на вопрос:
ГостьДолжно быть правильно, проверь на тестах.
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.
Не нашли ответ?
Похожие вопросы