麦森数-洛谷 1045

题目描述形如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：38600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010407932194664399081925240327364085538615262247266704805319112350403608059673360298012239441732324184842421613954281007791383566248323464908139906605677320762924129509389220345773183349661583550472959420547689811211693677147548478866962501384438260291732348885311160828538416585028255604666224831890918801847068222203140521026698435488732958028878050869736186900714720710555703168729087。题解：把在学校题库上的麦森数输出再改一下就行了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.