棋盘上的麦粒

program sss;
var i,n:longint;
t:qword;
begin
readln(n);
t:=1;
for i:=1 to n do
t:=t*2;
writeln(t);
end.
qword正好是2^64

学习学习~

国际象棋的棋盘，第一个格子放一个麦粒，第二个格子放两个麦粒，第三个格子放四个..........放满整个棋盘要多少麦子？

是这个古老的问题吗？

我不是学计算机的...............

本人学C.
设一个65*65的数组，
俩循环，乘2放。

USES MATH;
BEGIN
WRITELN(POWER(2,65)-1);
END.
不太精确