pascal 猴子吃枣问题猴子吃枣问题.猴子摘了一堆枣,第一天吃了一半,还嫌不过瘾,又吃了一个；第二天又吃了剩下的一半零一个；以后每天如此.到第十天,猴子一看只剩下一个了.问最初有多少

Question

pascal 猴子吃枣问题
猴子吃枣问题.猴子摘了一堆枣,第一天吃了一半,还嫌不过瘾,又吃了一个；第二天又吃了剩下的一半零一个；以后每天如此.到第十天,猴子一看只剩下一个了.问最初有多少个枣子?

Answer 1

var
x,i :integer;
begin
x := 1;
for i := 2 to 10 do
x := (x+1)*2;
writeln( x );
readln;
end.