Pagini recente » Cod sursa (job #2565520) | Cod sursa (job #1114378) | Cod sursa (job #2369414) | Cod sursa (job #440640) | Cod sursa (job #648210)
Cod sursa(job #648210)
const mo=666013;
var p1,p2,p3,p4,p5,p6:int64;
n,i,k:longint;
begin
assign(input,'kperm.in');reset(input);
assign(output,'kperm.out');rewrite(output);
readln(n,k);
p1:=1;p2:=1;
for i:=1 to n div k do
p1:=p1*i mod mo;
p2:=p1*(n div k+1) mod mo;
p4:=1;p3:=1;
for i:=1 to n mod k do
begin
p3:=p3*p2 mod mo;
p4:=p4*i mod mo;
end;
p2:=p3*p4 mod mo;
p5:=1;p6:=1;
for i:=1 to k-n mod k do
begin
p6:=p6*i mod mo;
p5:=p5*p1 mod mo;
end;
p1:=p5*p6 mod mo;
p1:=p1*p2 mod mo;
writeln(p1);
end.