題目描述

我們要求找出具有下列性質(zhì)數(shù)的個數(shù)(包含輸入的自然數(shù)n):

先輸入一個自然數(shù)n(n<=1000),然后對此自然數(shù)按照如下方法進(jìn)行處理:

1.不作任何處理;

2.在它的左邊加上一個自然數(shù),但該自然數(shù)不能超過原數(shù)的一半;

3.加上數(shù)后,繼續(xù)按此規(guī)則進(jìn)行處理,直到不能再加自然數(shù)為止.

輸入輸出格式

一個自然數(shù)n(n<=1000)

一個整數(shù)，表示具有該性質(zhì)數(shù)的個數(shù)。

輸入輸出樣例

6輸出樣例#1：
6
var ans,n,s:longint;PRocedure a(x:longint);var i:longint;begin inc(ans);//記錄步數(shù) if x=1 then exit;//這步的話后來發(fā)現(xiàn)可以不要 for i:=x div 2 downto 1 do  begin   a(i);//分支  end;end;begin read(n); a(n);//遞歸 write(ans);end.