Cod sursa(job #244167)

Utilizator radupoenaruPoenaru Radu Constantin radupoenaru Data 14 ianuarie 2009 17:46:06
Problema Sandokan Scor 15
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var n,k,p:qword;
    i:longint;
    f:text;
begin
assign(f,'sandokan.in');reset(f);
read(f,n,k); {
for i:=1 to n do read(f,a[i]);   }
close(f);
p:=1;
for i:=n-k+1 to n-1 do p:=p*i;
for i:=2 to k-1 do p:=p div i;
assign(f,'sandokan.out');rewrite(f);
write(f,p);
close(f);
end.