Ответы
Ответ дал:
0
Должно быть правильно, проверь на тестах.
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад