Pagini recente » Cod sursa (job #785725) | Cod sursa (job #2413030) | Cod sursa (job #2899825) | Cod sursa (job #1196713) | Cod sursa (job #163842)
Cod sursa(job #163842)
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.