Pagini recente » Cod sursa (job #239950) | Cod sursa (job #2378421) | Cod sursa (job #268517) | Cod sursa (job #1776105) | 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.