Cod sursa(job #163842)
Utilizator | Data | 23 martie 2008 11:21:39 | |
---|---|---|---|
Problema | Sandokan | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
const md=2000003;
var f,g:text;
o,l,n,i,j,k:integer;
s,s1:longint;
begin
assign(f,'sandokan.in');
reset(f);
readln(f,n,k);
l:=n;
s:=1;
while l>=k do
begin
s1:=1;
for i:=l-k+1 to l do
begin
o:=i-(l-k);
s1:=(s1*i)div o;
end;
s:=s*s1;
if s>md then s:=s mod md;
l:=l-k+1;
end;
assign(g,'sandokan.out');
rewrite(g);
writeln(g,s);
close(g);
end.