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.