Cod sursa(job #35793)

Utilizator fogabFodor Gabor fogab Data 22 martie 2007 15:41:08
Problema Diamant Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 kb
var f:text;
    n,m,i,j:integer;
    h,h2:byte;
    x,k:longint;
    a:array[1..2,-50000..50000] of longint;
begin
assign(f,'diamant.in');
reset(f);
read(f,n,m,x);
close(f);
a[1,0]:=1;
h:=1;
h2:=2;
for i:=1 to n do
  for j:=1 to m do
    begin
    for k:=-44100 to 44100 do
      a[h2,k]:=a[h,k-i*j]+a[h,k+i*j]+a[h,k];
   h2:=h;
   h:=h mod 2+1;
   end;
assign(f,'diamant.out');
rewrite(f);
writeln(f,a[h,x]);
close(f);
end.