麦森数-洛谷 1045

最新推荐文章于 2022-09-06 19:07:59 发布

陈弘毅

最新推荐文章于 2022-09-06 19:07:59 发布

阅读量445

点赞数

分类专栏：寒假作业

本文链接：https://blog.csdn.net/chenhongyi6/article/details/54863230

版权

寒假作业专栏收录该内容

42 篇文章 0 订阅

订阅专栏

题目描述

形如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,j,k,l,n,m:longint;
    a,b:array[0..1001] of longint;
procedure mason1(p:longint);
var i,j,k,l,i1,j1:longint;
begin
  if p=0 then exit;
  mason1(p 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];
  if odd(p) then
    for i:=1 to 1000 do b[i]:=b[i]*2;
  for i:=1 to 500 do
    begin
      b[i+1]:=b[i+1]+b[i] div 10;
      b[i]:=b[i] mod 10;
    end;
  for i:=1 to 500 do a[i]:=b[i];
  for i:=1 to 1000 do b[i]:=0;
end;
begin
  readln(n);
  a[1]:=1;
  writeln(trunc(n*ln(2)/ln(10))+1);
  mason1(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.