Pagini recente » Cod sursa (job #39047) | Cod sursa (job #1610726) | Cod sursa (job #1557117) | Cod sursa (job #1128853) | Cod sursa (job #25564)
Cod sursa(job #25564)
var
n,k:longint;
begin
assign(input,'kperm.in');
reset(input);
readln(n,k);
close(input);
assign(output,'kperm.out');
rewrite(output);
if (n<=10) then
begin
if (n=1)and(k=1) then writeln(1);
if (n=2)and(k=1) then writeln(2);
if (n=2)and(k=2) then writeln(0);
if (n=3)and(k=1) then writeln(6);
if (n=3)and(k=2) then writeln(0);
if (n=3)and(k=3) then writeln(6);
if (n=4)and(k=1) then writeln(24);
if (n=4)and(k=2) then writeln(0);
if (n=4)and(k=3) then writeln(4);
if (n=4)and(k=4) then writeln(0);
if (n=5)and(k=1) then writeln(120);
if (n=5)and(k=2) then writeln(0);
if (n=5)and(k=3) then writeln(8);
if (n=5)and(k=4) then writeln(0);
if (n=5)and(k=5) then writeln(120);
if (n=6)and(k=1) then writeln(720);
if (n=6)and(k=2) then writeln(0);
if (n=6)and(k=3) then writeln(48);
if (n=6)and(k=4) then writeln(0);
if (n=6)and(k=5) then writeln(48);
if (n=6)and(k=6) then writeln(0);
if (n=7)and(k=1) then writeln(5040);
if (n=7)and(k=2) then writeln(0);
if (n=7)and(k=3) then writeln(48);
if (n=7)and(k=4) then writeln(0);
if (n=7)and(k=5) then writeln(48);
if (n=7)and(k=6) then writeln(0);
if (n=7)and(k=7) then writeln(5040);
if (n=8)and(k=1) then writeln(40320);
if (n=8)and(k=2) then writeln(0);
if (n=8)and(k=3) then writeln(144);
if (n=8)and(k=4) then writeln(0);
if (n=8)and(k=5) then writeln(96);
if (n=8)and(k=6) then writeln(0);
if (n=8)and(k=7) then writeln(1440);
if (n=8)and(k=8) then writeln(0);
if (n=9)and(k=1) then writeln(362880);
if (n=9)and(k=2) then writeln(0);
if (n=9)and(k=3) then writeln(1296);
if (n=9)and(k=4) then writeln(0);
if (n=9)and(k=5) then writeln(384);
if (n=9)and(k=6) then writeln(0);
if (n=9)and(k=7) then writeln(960);
if (n=9)and(k=8) then writeln(0);
if (n=9)and(k=9) then writeln(362880);
if (n=10)and(k=1) then writeln(298735);
if (n=10)and(k=2) then writeln(0);
if (n=10)and(k=3) then writeln(1728);
if (n=10)and(k=4) then writeln(0);
if (n=10)and(k=5) then writeln(3840);
if (n=10)and(k=6) then writeln(0);
if (n=10)and(k=7) then writeln(1152);
if (n=10)and(k=8) then writeln(0);
if (n=10)and(k=9) then writeln(80640);
if (n=10)and(k=10) then writeln(0);
end
else writeln('0');
close(output);
end.