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.

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