麦森数

最新推荐文章于 2020-03-06 16:37:19 发布

陈弘毅

最新推荐文章于 2020-03-06 16:37:19 发布

阅读量346

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/chenhongyi6/article/details/53543633

本文介绍了一种使用递归算法解决特定数学问题的方法。该算法通过分解问题规模并利用数组进行中间结果的存储与计算，实现了对较大整数幂次运算的精确处理。文章详细展示了递归过程中的关键步骤，包括基线条件设定、递归调用、以及如何通过数组操作完成最终结果的计算。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

const
maxn=1000;
var n:longint;
i,j:longint;
a:array[1..maxn] of longint;
b:array[1..maxn] of longint;

procedure solve(n:longint);
begin
if n=0 then exit;
solve(n div 2);
for i:=1 to 500 do
for j:=1 to 500 do
if n mod 2=0 then
b[i+j-1]:=b[i+j-1]+a[i]*a[j]
else
b[i+j-1]:=b[i+j-1]+a[i]*a[j]*2;
for i:=1 to 500 do
begin
a[i]:=b[i] mod 10;
b[i+1]:=b[i+1]+b[i] div 10;
end;
for i:=1 to 1000 do b[i]:=0;
end;
begin
readln(n);
writeln(trunc(ln(2)/ln(10)*n)+1);
a[1]:=1;
solve(n);
for i:=500 downto 2 do
begin
write(a[i]);
end;
writeln(a[1]-1);
end.