【题目描述】
对于从1到N（1<=N<=39）的连续整数集合，划分成两个子集合，使得每个集合的数字之和相等。
举个例子，如果N=3，对于{1，2，3}能划分成两个子集合，他们每个的所有数字和是相等的：{3} and {1,2}
这是唯一的一种分法（交换集合位置被认为是同一种划分方案，因此不会增加划分方案总数）。
如果N=7，有四种方法能划分集合{1，2，3，4，5，6，7}，每一种分法的子集合各数字和是相等的:
{1,6,7} and {2,3,4,5};{2,5,7} and {1,3,4,6};
{3,4,7} and {1,2,5,6};{1,2,4,7} and {3,5,6}
【输入】
一个正整数N，1<=N<=39
【输出】
一个数，划分集合的方法数。
【样例输入】
7
【样例输出】
4
【解题思路】
这是一只 背包型的DP，求方案的那种，f[i,j]表示前i个数的取值为j的方案数
正推 : f[i,j]:=f[i-1,j]+f[i-1,j-i];
初始条件：f[1,1]:=1; f[1,0]:=1;
倒推（f[i,j]表示i~n个中取值为j）
f[i,j]:=f[i+1,j]+f[i+1,j-i];
初始条件：f[n,n]:=1; f[n,0]:=1;
program t2;
var n,sum,i,j:longint;
f:array[..,..] of longint;
begin
read(n);
sum:=(n+)*n div ;
if sum mod = then//特判
begin
write();
halt;
end;
sum:=sum div ;
f[,]:=;//从前1个数中取数为1的方法为1中，下同
f[,]:=; for i:= to n- do//默认n个在另一个数组里
for j:= to (i+)*i div do
begin
f[i,j]:=f[i-,j];
if j-i>= then f[i,j]:=f[i,j]+f[i-,j-i];//防越界
end;
writeln(f[n-,sum]);
end.