pascal!猴子拿桃子*猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第2天早上又将剩下的桃子吃掉一半,又多吃了一个.以后每天早上都吃了前一天剩下的一半另加一个.到第10

Question

pascal!猴子拿桃子
*猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,
又多吃了一个.第2天早上又将剩下的桃子吃掉一半,又
多吃了一个.以后每天早上都吃了前一天剩下的一半另加
一个.到第10天早上想再吃时,就只剩下一个桃子了.求
第一天共摘了多少桃子?

Answer 1

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