2001数的计数

题目：

题目描述 Description

我们要求找出具有下列性质数的个数(包含输入的自然数n):

先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行处理:

1.          不作任何处理;

2.          在它的左边加上一个自然数,但该自然数不能超过原数的一半;

3.          加上数后,继续按此规则进行处理,直到不能再加自然数为止.

输入描述 Input Description

一个数n

输出描述 Output Description

满足条件的数的个数

样例输入 Sample Input

6

样例输出 Sample Output

6

数据范围及提示 Data Size & Hint

6个数分别是：

6

16

26

126

36

136

题解：

搜索。

每一个数有两种可能：1、什么也不加了（答案+1）。2、在添上一个数（枚举）。

var n,ans:longint;

procedure dfs(k:longint);//k表示现在最左边的那个数

var i:longint;

begin

if k=0 then exit;

inc(ans);//什么也不加了（答案+1）

for i:=1 to k div 2 do dfs(i);//在添上一个数（枚举）

end;

begin

readln(n);

dfs(n);

write(ans);

end.