数的计算

题目描述

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

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

1.不作任何处理;

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

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

输入输出格式

一个自然数n(n<=1000)

一个整数，表示具有该性质数的个数。

输入输出样例

6输出样例#1：
6
var ans,n,s:longint;PRocedure a(x:longint);var i:longint;begin inc(ans);//记录步数 if x=1 then exit;//这步的话后来发现可以不要 for i:=x div 2 downto 1 do  begin   a(i);//分支  end;end;begin read(n); a(n);//递归 write(ans);end.