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

问题描述

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

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

1. 不作任何处理;

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

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

样例: 

输入:  6

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

                          16

                          26

                         126

                          36

                         136

输出:  6

 

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.

 

 

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