对于从1到N（1<=N<=3）的连续整数集合，划分成两个子集合，使得每个集合的数字之和相等。举个例子，如果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}
var f:array[..,..] of longint;
n,s,i,j:longint;
begin
fillchar(f,sizeof(f),);
read(n);
s:=n*(n+) div ;
if (s mod =) then
begin
writeln();
halt;
end
//总和是奇数无法平分直接输出零
else
begin
f[n,]:=;
f[n,n]:=;
s:=s div ;
//也可以一开始div4
for i:=n- downto do
for j:= to s do
begin
f[i,j]:=f[i+,j];
if j-i>= then f[i,j]:=f[i,j]+f[i+,j-i];
//f[i,j]表示从i..n中取数得和为j的方案数,j-i意为取完数了
end;
writeln(f[,s]);
end;
end.