pascal!猴子拿桃子*猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第2天早上又将剩下的桃子吃掉一

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

xlz8716 1年前已收到3个回答举报

共回答了18个问题采纳率：88.9% 举报

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

1年前

共回答了1个问题举报

倒着算啊！从1个，然后 *2，+1，*2，+1用手动模拟就可以了。注意数据类型，不要超界了，用长整型

1年前

共回答了1个问题举报

var
s,i:longint;
begin
s:=1;
for i:=9 downto 1 do
s:=s*2+1;
writeln(s);
end.
从后面往前面算
直接模拟

1年前

可能相似的问题

你能帮帮他们吗

精彩回答