codeves天梯 数的计算

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

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

1.          不作任何处理;

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

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

分析：就是一道无脑的暴搜题（毕竟n只有1000==）。

var 
  ans,n:longint;

procedure search(m:longint);
var
  i:longint;
begin
  inc(ans);
  for i:=1 to m div 2 do
    search(i);
end;

begin
  readln(n);
  search(n);
  writeln(ans);
end.