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

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

1.          不作任何处理;

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

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

一个数n

满足条件的数的个数

6

6

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.