题目描述 形如2P-1的素数称为麦森数，这时P一定也是个素数。但反过来不一定，即如果P是个素数，2P-1不一定也是素数。到1998年底，人们已找到了37个麦森数。最大的一个是P=3021377，它有909526位。麦森数有许多重要应用，它与完全数密切相关。 任务：从文件中输入P（1000<=P<3100000），计算2P-1的位数和最后500位数字（用十进制高精度数表示）
输入输出格式 输入格式： 文件中只包含一个整数P（1000<=P<3100000） 输出格式： 第一行：十进制高精度数2^P-1的位数。 第2-11行：十进制高精度数2^P-1的最后500位数字。（每行输出50位，共输出10行，不足500位时高位补0） 不必验证2^P-1与P是否为素数。
输入输出样例 输入样例#1： 1279 输出样例#1： 386 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000104079321946643990819252403273640855 38615262247266704805319112350403608059673360298012 23944173232418484242161395428100779138356624832346 49081399066056773207629241295093892203457731833496 61583550472959420547689811211693677147548478866962 50138443826029173234888531116082853841658502825560 46662248318909188018470682222031405210266984354887 32958028878050869736186900714720710555703168729087
说明 这一题要用到分治，将高精乘分治，这过程要用多些循环。 我就是因为分治弄得不好，改了很久才写出来。
程序如下
var i,n:longint; a,b:array[1..1000] of longint;PRocedure main(m:longint);var i,j:longint;begin if m<=0 then exit; main(m div 2); for i:=1 to 500 do for j:=1 to 500 do b[i+j-1]:=b[i+j-1]+a[i]*a[j]; for i:=1 to 1000 do begin if (m mod 2)=1 then a[i]:=b[i]*2 else a[i]:=b[i]; b[i]:=0; end; for i:=1 to 500 do begin a[i+1]:=a[i+1]+a[i] div 10; a[i]:=a[i] mod 10; end;end;begin readln(n); a[1]:=1; writeln(trunc(n*ln(2)/ln(10))+1); main(n); a[1]:=a[1]-1; for i:=500 downto 1 do begin write(a[i]); if i mod 50=1 then writeln; end;end.新闻热点
疑难解答
