pascal 宰相的麦子

发布网友发布时间：2022-08-20 12:36

共3个回答

热心网友时间：2023-11-05 01:21

只能用高精度了
program a1;
var
st :ansistring;
i,j :integer;
t :integer;
k :integer;
st1,st2 :ansistring;
len :integer;
m :integer;
begin
st:='1';
for i:=1 to 65 do
begin
len:=length(st);
t:=0;
st2:='';
for j:=len downto 1 do
begin
val(st[j],m);
m:=m*2;
k:=m mod 10+t;
t:=m div 10;
str(k,st1);
st2:=st1+st2;
end;
str(t,st1);if t<>0 then st2:=st1+st2;
st:=st2;
end;
for i:=1 to length(st)-1 do
write(st[i]);
val(st[length(st)],j);
write(j-1);
end.

热心网友时间：2023-11-05 01:21

数据太大了，用高精度乘法和加法把

热心网友时间：2023-11-05 01:22

打高精吧。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com