Cod sursa(job #163432)
| Utilizator |  Glodeanu Ioan Daniel DanielG |
Data | 22 martie 2008 11:10:41 |
|---|---|---|---|
| Problema | Sandokan | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | preONI 2008, Runda Finala, Clasele 5-8 | Marime | 0.29 kb |
var i,n,k:word;
s1,s2,s:longint;
f:text;
begin
assign(f,'sandokan.in');reset(f);
readln(f,n,k);
close(f);
s1:=1;
s2:=1;
for i:=(n-(n-k)+1) to n do
s1:=s1*i;
for i:=1 to n-k do
s2:=s2*i;
s:=s1 div s2;
assign(f,'sandokan.out');rewrite(f);
write(f,s mod 2000003);
close(f);
end.