猴子吃桃子 [复制链接]

猴子吃桃子问题：
  猴子第一天摘下N个桃子，当时就吃了一半，还不过瘾，就又吃了一个。第二天又将剩下的桃子吃掉一半，又多吃了一个。以后每天都吃前一天剩下的一半零一个。到第10天吃了以后一看,就剩下一个桃子了,求第一天共摘下来多少个桃子？

顺推：var n,i:integer;
  a:array[0..10]of real;
begin
for n:=2 to 10000 do
  begin
    a[0]:=n;
    for i:=1 to 10 do a:=a[i-1]/2-1;
    if a[10]=1 then begin writeln(trunc(a[0]));exit;end;
    end;
end.

逆推：var n:integer;
  a:array[0..10]of integer;
begin
a[10]:=1;
for n:=9 downto 0 do
    a[n]:=(a[n+1]+1)*2;
writeln(a[0]);
end.

少先队，我运行过来了，你得顺推程序是不能运行的。
很抱歉我不会！