NOIP 2001 普及组第一题 数的计算

问题描述

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

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

1. 不作任何处理;

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

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

样例: 

输入:  6

满足条件的数为  6 (此部分不必输出)

                          16

                          26

                         126

                          36

                         136

输出:  6

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

program noip2001p1;  var   l,n,k:longint;  procedure d(var x:longint);   var    t,i,tot:longint;   begin    t:=trunc(x/2);    if t=1 then inc(k)     else for i := 1 to t do      begin      tot:= i;       d(tot);       inc(k);      end;   end;  begin   k := 1;   read (n);   d(n);   writeln (k);  end.

 

 

快开学了，一阵子一直补作业。。。总算补完了，来道简单题吧。。。要开学了。。