Cod sursa(job #25580)

Utilizator cimiCristina Stancu-Mara cimi Data 4 martie 2007 13:00:28
Problema Kperm Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.4 kb
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.