【递归】数的计数
问题描述：
【递归】数的计数
我们要求找出具有下列性质数的个数(包含输入的自然数n):
先输入一个自然数n（n≤1000）,
然后对此自然数按照如下方法进行处理：
1．不作任何处理；
2．在它的左边加上一个自然数,但该自然数不能超过原数的一半；
3．加上数后,继续按此规则进行处理,直到不能再加自
答
var ans,n:longint;procedure search(m:longint);var i:longint;begininc(ans);for i:=1 to m div 2 dosearch(i);end;beginreadln(n);search(n);writeln(ans);end.