Cod sursa(job #223220)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 27 noiembrie 2008 18:12:46
Problema Sandokan Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.72 kb
const x=2000003;

var f,g:text;
    n,k:longint;

function comb(n,k:longint):longint;
var v:array[0..5010]of longint;
    i,j,c1,c2:longint;
begin
  v[1]:=1;
  for i:=2 to k do
    begin
      c1:=1;
      for j:=1 to i-1 do
        begin
          c2:=v[j];
          v[j]:=((c1 mod x)+v[j])mod x;
          c1:=c2;
        end;
      v[i]:=1;
    end;
  for i:=k+1 to n do
    begin
      c1:=1;
      for j:=1 to k do
        begin
          c2:=v[j];
          v[j]:=((c1 mod x)+v[j])mod x;
          c1:=c2;
        end;
    end;
  comb:=v[k];
end;



begin
assign(f,'sandokan.in');
assign(g,'sandokan.out');
reset(f);
rewrite(g);
read(f,n,k);
write(g,comb(n-1,k-1));
close(f);
close(g);
end.