记录编号	78804	评测结果	AAAAA
题目名称	[NOIP 2001]数的计数	最终得分	100
用户昵称	铁策	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2013-11-04 18:43:18	内存使用	0.17 MiB

program P1415;
var
a:array[1..1000] of longint;
n,i,j,k:longint;
begin
assign(input,'nums.in');
reset(input);
assign(output,'nums.out');
rewrite(output);
readln(n);
fillchar(a,sizeof(a),0);
a[1]:=1;
for i:=2 to n do begin
for j:=1 to i div 2 do
a[i]:=a[i]+a[j]; inc(a[i]);
end;
writeln(a[n]);
end.