来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/06 06:26:01
猴子吃枣 free pascal 语言
free pascal 要用while语句
编程求猴子吃枣问题：猴子摘了一堆枣N个,第一天吃了一半,还嫌不过瘾,又多吃了一个：第二天又吃了剩下的一半零一个：以后每天如此,到第十天,猴子一看只剩下一个了.问最初有多少个枣子?
楼上的程序有点问题,应该是：
var
n,i:longint;
begin
n:=1;
i:=10;
while i>1 do
begin
i:=i-1;
n:=(n+1)*2;
end;
writeln(n);
end.
——百度知道团队pas世界欢迎你加入!
作业帮