freepascle求古印度国王要褒奖他的聪明能干的宰相达依尔（国际象棋发明者）,问他要什么.达依尔回答：“陛下只要在棋盘的第一个格子放1粒麦子,在第二个格子放2粒麦子,在第三个格子放4粒

Question

free pascle求
古印度国王要褒奖他的聪明能干的宰相达依尔（国际象棋发明者）,问他要什么.达依尔回答：“陛下只要在棋盘的第一个格子放1粒麦子,在第二个格子放2粒麦子,在第三个格子放4粒麦子,以后每个麦粒数都是前一格的两倍.如此放满64格,我就心满意足了.”国王想,这不难办到.但一袋麦子很快用完了,一仓库也用完了,全印度的麦子还远远不够.请你计算需要多少立方米麦子?（1立方米麦子约为1.42×10^8粒）

Answer 1

var
sum,tot:double;
i,j:longint;
begin
tot:=0;
for i:=0 to 63 do
begin
sum:=1/142000000;
for j:=1 to i do
sum:=sum*2;
tot:=tot+sum;
end;
writeln(tot:0:0);
end.