分类：电脑/网络-程序设计
问题：！！信息奥赛题目！有一天小猴摘下了若干个桃子，当即吃掉了一半，还 
有一天小猴摘下了若干个子，当即吃掉了一半，还觉不过瘾， 又多吃了一个；第二天接着吃了剩下的桃子中的一半，仍不过瘾， 又多吃了一个；以后每天都吃尚存桃子的一半零一个。到第n天早上吃完后就只剩下—个了，问小猴那天共摘下了多少个桃子?(1≤n≤30) 
回答：答案：60

program abc;
var
a,n:integer;
begin
for n:= 30 downto 1 do
a:=(30-n+1)*2;
writeln(a);
readln
end.