題目描述

我們要求找出具有下列性質數的個數(包含輸入的自然數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.