我问大家一道题，是pascal的：（题在下面）

来源：百度知道编辑：UC知道时间：2024/06/11 23:07:13

一群猴子摘了一堆枣，第一天吃了一半多一个，第二天吃了城下的一半多一个，以此类推，第十天剩下一个，问猴子一共摘了多少个枣？

var i,total:longint;
begin
total:=1;
for i:=1 to 9 do
total:=total*i+1;
writeln(total);
end.
这题实际上有一个数学公式，第n天应有2^n-1个桃子

pascal
我恨死你了
超！！！！！！

x:=1;
for i:=1 to 10 do
x:=x*2+1;
writeln(x);

var i,s:longint;
 begin
 s:=1;
 for i:=1 to 9 do
 s:=s*i+1;
 writeln(s);
 end.
 如果你想简单点，也可以
 begin
 writeln(1023);
 end.
 对了，三楼的是错误的，应该是只循环9次

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

program x;
i,a:integer;
begin
a:=1;
for i:=1 to 9 do
a:=2*a+1;
write(a);
end.