题目描述
我们要求找出具有下列性质数的个数(包含输入的自然数n):
先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行处理:
1.不作任何处理;
2.在它的左边加上一个自然数,但该自然数不能超过原数的一半;
3.加上数后,继续按此规则进行处理,直到不能再加自然数为止.
输入输出格式
输入格式:一个自然数n(n<=1000)
输出格式:一个整数,表示具有该性质数的个数。
输入输出样例
输入样例#1:
6
输出样例#1:
6
var
ans,n,s:longint;
procedure a(x:longint);
var
i:longint;
begin
inc(ans);//记录步数
if x=1 then exit;//这步的话后来发现可以不要
for i:=x div 2 downto 1 do
begin
a(i);//分支
end;
end;
begin
read(n);
a(n);//递归
write(ans);
end.