Cod sursa(job #117890)

Utilizator taloibogdanTaloi Bogdan Cristian taloibogdan Data 22 decembrie 2007 17:33:50
Problema Diamant Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
Program diamant;
Var f,ff:text;
    n,m,x,s,l:longint;
procedure alege(i,j,s:longint);
begin
 if i+j>=n+m then
   begin if s=x then l:=(l+1) mod 10000; end
             else
   begin
    j:=j+1;
    if j>m then begin j:=1; i:=i+1; end;
    alege(i,j,s-i*j);
    alege(i,j,s);
    alege(i,j,s+i*j);
   end;
end;
Begin
  assign(f,'diamant.in');
  reset(f);
  assign(ff,'diamant.out');
  rewrite(ff);
  readln(f,n,m,x);
  s:=0;
  l:=0;
  alege(1,0,0);
  Writeln(ff,l);
  close(f);
  close(ff);
End.