用free pascal的循环结构做!1

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/08 18:55:31

用free pascal的循环结构做!1
宰相的麦子：相传古印度宰相达依尔,是国际象棋的发明者.有一次,国王因为他的贡献要奖励他,问他想要什么.达依尔说：“只要在国际象棋棋盘上（共64格）摆上这么些麦子就行了：第一格一粒,第二格两粒,……,后面一格的麦子总是前一格麦子数的两倍,摆满整个棋盘,我就感恩不尽了.”国王一想,这还不容易,刚想答应,如果你这时在国王旁边站着,你会不会劝国王别答应,为什么?
用free pascal的循环结构做!1

program maizi
var
i:integer;
s,m:longint;
begin
m:=1;
for i:=1 to 64 do
begin
s:=s+m;
m:=m*2;
end;
writeln(s);
end.

用free pascal语言的直到型循环解下面这道题用Free Pascal 做求两个正整数的最大公约数用FREE PASCAL的简单的循环语句便一道题 free pascal 用for循环做求所有的三位数中十位数能被个位数和百位数之和整除的数. Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? 统计用free pascal 计算1*2*3*.*n>1000的第一个n值（用pascal语言,while循环和repeat循环来做） Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下, free pascal语言.打印下列图形（共4个）.用循环. Pascal 也分 Turbo Pascal 和 Free Pascal 的一道Free Pascal的题目怎么用free pascal做这道题？