Pascal 在国际象棋上放米粒,第一格放1粒,第二格放2粒,第三格放4粒……,以此类推,计算棋盘公放多少粒米

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 06:49:44

Pascal 在国际象棋上放米粒,第一格放1粒,第二格放2粒,第三格放4粒……,以此类推,计算棋盘公放多少粒米
用循环和累加

高精度乘法和加法
结果是2^64-1
program jj;
var la,lb,lc,x,i,j :longint;
a,b,c :array [1..1000] of longint;
n,m :string;
begin
str(maxlongint,n);str(maxlongint,m)
la := length(n); lb := length(m);
for i := 1 to la do a[la-i+1] := ord(n[i])-48;
for i := 1 to lb do b[lb-i+1] := ord(m[i])-48;
for i := 1 to la do
begin
x :=0;
for j := 1 to lb do
begin
x := a[i]*b[j]+x div 10+c[i+j-1];
c[i+j-1] := x mod 10;
end;
c[i+j] := x div 10;
end;
lc := i+j;
while (c[lc]=0) and (lc>1) do lc := lc-1;
for i := lc downto 2 do
write(c[i]);
writeln(5);
end.
再问：同志，我是个新手，别太复杂，OK？
再答：你用的是free pascal吗？如果是，我再回答你

Pascal 在国际象棋上放米粒,第一格放1粒,第二格放2粒,第三格放4粒……,以此类推,计算棋盘公放多少粒米回答下面的问题在棋盘上,第一格放1粒米,第二格放2粒,第三格放4粒,第四格放16粒……按这个方法放满整个棋盘.棋盘有64 在国际棋盘的64个格子放置小麦粒,第一格放1粒,第二格放2粒,第三格放4粒,第四格放8粒,以此类推,最后需放多少麦粒?谁在国际象棋棋盘上的第一格放1粒米,第2格放2粒米,第三格放4粒米,第4格放8粒米…以此类推. 在棋盘上第一格放一粒米第二格放二粒第三格放四粒第四格放十六粒照此方法放满六十四格要多少米粒用幂表示在国际象棋的棋盘上,第1格放2粒米,第2格放4粒米,第3格放8粒米,依此类推,到棋盘最后一格有多少粒米? 棋盘分64格,在棋盘的第一格放1粒米,第2格放2粒,第3格放4粒,……放满64个格为止.要多少粒米? 在国际象棋的棋盘上,第1格放1粒米,第2格放2粒米,第3格放4粒米,依此类推,放满后有多少粒大米? 在一张国际象棋的第一格内放1粒麦子,第二格放2粒,第三格放4粒,每一格内的麦子都比前一格增加一倍在国际象棋的第一格放1粒米,第二格放2粒米,第三格放4粒米. 在棋盘上第一格放一粒米,第二个放第二粒,第三个格第四粒,第四格16粒……64格有多少粒? 在一个64格的棋盘上放米粒,第一个放 1粒米,第二格放2粒米,第三格放4粒米.