luyao777 2010-11-03 05:27:00
点我顶贴
收藏
删除
[color=blue]
有点看不懂…………（详解）
program T73;
var
n,i,j,k,t:longint;
f:array[0..130,-10..130] of longint;
begin
readln(n);
fillchar(f,sizeof(f),0);
f[0,0]:=1;
for i:=1 to n do
for j:=1 to i do
for k:=0 to j-1 do
f[i,j]:=f[i,j]+f[i-j,k];
t:=0;
for i:=1 to n do t:=t+f[n,i];
writeln(t-1);
end.