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

来源：百度知道 编辑：UC知道 时间：2024/05/15 17:45:07
我们要求找出具有下列性质数的个数(包含输入的自然数n):
先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行处理:
1. 不作任何处理;
2. 在它的左边加上一个自然数,但该自然数不能超过原数的一半;
3. 加上数后,继续按此规则进行处理,直到不能再加自然数为止.

program liukevijos1130;
var
ans,n:longint;

procedure search(m:longint);
var
i:longint;
begin
inc(ans);
for i:=1 to m div 2 do
search(i);
end;

begin
readln(n);
search(n);
writeln(ans);
end.

var
f:array[0..1000] of longint;
n,i,j,k,sum:longint;
begin
readln(n);
f[1]:=1;
sum:=0;
for i:=2 to n do
begin
for j:=1 to i div 2 do
inc(f[i],f[j]);
inc(f[i]);
end;
writeln(f[n]);
end.