Pagini recente » Cod sursa (job #2931417) | Cod sursa (job #494301) | Cod sursa (job #628236) | Cod sursa (job #3280492) | Cod sursa (job #116406)
Cod sursa(job #116406)
var i,j,n,m,x,y,k,s,max:longint;
a,b:array[-44100..44100] of integer;
f1,f2:text;
begin
assign(f1,'diamant.in');
assign(f2,'diamant.out');
reset(f1);
rewrite(f2);
readln(f1,n,m,s);
if (s>44100) or (s<-44100) then
begin
writeln(f2,0);
close(f1);
close(f2);
halt;
end;
a[-1]:=1;
a[0]:=1;
a[1]:=1;
max:=1;
for i:=1 to n do
for j:=1 to m do
begin
if (i=n) and (j=m) then break;
x:=i;
y:=j;
if (y<m) then y:=y+1
else begin inc(x);y:=1;end;
for k:=-max to max do
if (a[k]<>0) then
begin
b[k-x*y]:=(b[k-x*y]+a[k]) mod 10000;
b[k]:=(b[k]+a[k]) mod 10000;
b[k+x*y]:=(b[k+x*y]+a[k]) mod 10000;
end;
max:=max+x*y;
for k:=-max to max do
begin
a[k]:=b[k];
b[k]:=0;
end;
end;
writeln(f2,a[s]);
close(f1);
close(f2);
end.