记录编号	73497	评测结果	AAAAWWTTTT
题目名称	分裂	最终得分	40
用户昵称	gungnir	是否通过	未通过
代码语言	Pascal	运行时间	4.608 s
提交时间	2013-10-21 19:48:41	内存使用	76.96 MiB

var
a:array[-5..10000,-5..1000]of int64;
n,i,j:longint;

function max(a,b:longint):longint;
begin
if a>b then max:=a else max:=b;
end;

procedure make;
var  i,l:longint;
begin
l:=max(a[j,0],a[j-1,0]);
   for i:=1 to l do a[j,i]:=a[j,i]+a[j-1,i];
   for i:=1 to l-1 do
   if a[j,i]>=10000 then
   begin
   a[j,i+1]:=a[j,i+1]+a[j,i]div 10000;
   a[j,i]:=a[j,i]mod 10000;
   end;
   while a[j,l]>=10000 do
   begin
   inc(l);
   a[j,l]:=a[j,l-1]div 10000;
   a[j,l-1]:=a[j,l-1]mod 10000;
   end;
a[j,0]:=l;
end;


begin
assign(input,'mushroom.in');reset(input);
assign(output,'mushroom.out');rewrite(output);
fillchar(a,sizeof(a),0);
readln(n);
a[1,1]:=1;a[1,0]:=1;
for i:=2 to n do
for j:=i div 2+1 downto 2 do
make;

for j:=2 to n div 2 +1 do
make;

for i:=a[n div 2+1,0] downto 1 do
write(a[n div 2+1,i]);
writeln;

close(input);close(output);
end.