猴子摘了一堆枣,第一天吃了一半,还嫌不够,又多吃了一个;第二天又吃了剩下

2025-01-01 14:29:08
推荐回答(2个)
回答1:

program lx4;
var
x,i:integer;
begin
x:=1;
for i:=2 to 10 do
x:=(x+1)*2;
writeln(x);
end.

回答2:

var t,i:integer;
begin
t:=1;
for i:=2 to 10 do
begin
x:=(x+1)*2;
end;
writeln(x);
end.