Question

用free pascal编一个程序，如下

用free pascal 编程 Description

果园里种了很多桃树，当桃树开始结果的时候，猴子便会成群结队地前来摘桃。
猴子们第一天会摘掉桃子的一半还多一个，第二天再摘第一天剩下的一半还多一个，以后每天均摘掉上一天剩下的一半还多一个，到第N天时，树上就只剩下两个桃子了。请问果园里原来共多少个桃子？

Input

输入正整数N表示天数 。

Output

输出果园里原来共有的桃子数。

Answer 1

program long;
var
i,j,k,a,b:longint;
begin
readln(a);
k:=2;
for i:=1 to a do k:=(k+1)*2;
writeln(k);
end.

Answer 2

额。这种水题。。。。。
这题思想就是模拟，往回倒。
n天那就for i:=1 to n do num:=2*(num+1);
num初始值赋值为2。
var
i,n,num:longint;
begin
readln(n);
num:=2;
for i:=1 to n do num:=2*(num+1);
writeln(num);
end.

Answer 3

var a,i,c,n:integer;
Begin
readln(n);
c:=2;
for i:=n downto 1 do
begin
k:=c;
c:=(k+1)*2;
end;
writeln(c);
end.

Answer 4

具体不说，留给你自己去想。
用倒推法，从最后一天倒起。