递归数的计数我们要求找出具有下列性质数的个数(包含输入的自然数n):先输入一个自然数n（n≤1000）,然后对此自然数按照如下方法进行处理：1．不作任何处理；2．在它的左边加上一

Question

【递归】数的计数
我们要求找出具有下列性质数的个数(包含输入的自然数n):
先输入一个自然数n（n≤1000）,
然后对此自然数按照如下方法进行处理：
1．不作任何处理；
2．在它的左边加上一个自然数,但该自然数不能超过原数的一半；
3．加上数后,继续按此规则进行处理,直到不能再加自

Answer 1

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.