Question

Free PASCAL 语言

猴子摘了一堆桃子，第一天吃了一半，觉得不过瘾又吃了一个

第二天吃了剩下的一半零一个

以后每天如此

到第十天

猴子一看只有一个桃子了

问原来有几个

请写程序，谢谢

Answer 1

其实程序不长，无需很长的公式，一个for循环即可。

我先编了一个吃到第10天剩1个桃的程序：

var i,ans:longint;
begin
 ans:=1;
 for i:=1 to 9 do
  ans:=(ans+1)*2;
 writeln(ans);
end.

如果您需要吃到第n天剩1个桃的程序，我也准备好了，输入n即可。

var n,i,ans:longint;
begin
 readln(n);
 ans:=1;
 for i:=1 to n-1 do
  ans:=(ans+1)*2;
 writeln(ans);
end.

此程序的计算公式为ans=(ans+1)*2。

Answer 2

var i,k:longint;
begin
k:=1;
for i:=1 to 9 do begin k:=k+1;k:=k*2;end;
writeln(k);
end.
应该对的，建议试试