Cod sursa(job #163842)

Utilizator valytgjiu91stancu vlad valytgjiu91 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.