Cod sursa(job #43773)

Utilizator cimiCristina Stancu-Mara cimi Data 30 martie 2007 15:30:13
Problema Diamant Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.74 kb
const
  lim=45000;
var
  r,c,l,k,i,j,n,m,x:longint;
  a:array[0..1,-lim..lim] of longint;
  sol:longint;

begin
  assign(input,'diamant.in');
  reset(input);
  readln(n,m,x);
  close(input);
  l:=0;
  for i:=1 to n do
   for j:=1 to m do l:=l+i*j;
  r:=0; c:=1;
  a[r,0]:=1;
  for i:=1 to n do
    for j:=1 to m do
    begin
      for k:=-l to l do
      begin
        if a[r,k]>0 then
        begin
          inc(a[c,k+i*j],a[r,k]);
          inc(a[c,k-i*j],a[r,k]);
          inc(a[c,k],a[r,k]);
        end;
        {a[c,k]:=a[c,k]+a[r,k];}
        a[r,k]:=0;
      end;
      r:=1-r;
      c:=1-c;
    end;
  dec(a[r,0]);
  assign(output,'diamant.out');
  rewrite(output);
  writeln(a[r,x]);
  close(output);
end.