作业帮 > 数学 > 作业

【递归】数的计数我们要求找出具有下列性质数的个数(包含输入的自然数n):先输入一个自然数n(n≤1000),然后对此自然

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/05/13 13:31:04
【递归】数的计数
我们要求找出具有下列性质数的个数(包含输入的自然数n):
先输入一个自然数n(n≤1000),
然后对此自然数按照如下方法进行处理:
1.不作任何处理;
2.在它的左边加上一个自然数,但该自然数不能超过原数的一半;
3.加上数后,继续按此规则进行处理,直到不能再加自
【递归】数的计数我们要求找出具有下列性质数的个数(包含输入的自然数n):先输入一个自然数n(n≤1000),然后对此自然
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.