Pascal 猴子吃香蕉问题(具体补充如下)
Pascal 猴子吃香蕉问题(具体补充如下)
program ex1;
const n=10;{常量定义,定义猴子吃香蕉的天数}
var i,s:longint;{变量定义}
begin
for i:=n-1 downto 1 do
s:=(s+1)*2;{利用for循环逆推,while、repeat也可以,不过稍为复杂}
writeln(s);{输出}
end.{结束}
var
i,s:integer;
begin
s:=1;
for i:=9 downto 1 do s:=(s+1)*2;
writeln(s);
end.
相关内容