Cod sursa(job #117890)
Utilizator | Taloi 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.