codevs1011

题目地址：http://codevs.cn/problem/1011/

分析：

递推

代码：

var
n:longint;
f:array[1..1010] of longint;
a,b:longint;
begin
readln(n);
for a:=1 to n do begin
f[a]:=1;
for b:=1 to (a div 2) do f[a]:=f[a]+f[b];
end;
writeln(f[n]);
end.