分西瓜一次比赛奖励一批西瓜,第一名得西瓜总数的一半加半只,第二名得剩下的西瓜的一半加半只,第三名得再次剩下的西瓜的一半加半只,西瓜正好分完,在分的过程中并没有用刀切西瓜.请编

Question

分西瓜
一次比赛奖励一批西瓜,第一名得西瓜总数的一半加半只,第二名得剩下的西瓜的一半加半只,第三名得再次剩下的西瓜的一半加半只,西瓜正好分完,在分的过程中并没有用刀切西瓜.请编程计算西瓜总数有多少?

Answer 1

var
n,i:integer;
a:real;
begin
n:=1;{ 先假设原有西瓜数为1}
repeat
n:=n+1;{ 西瓜数每次加1}
a:=n;
for i:=1 to 3 do a:=a-a/2-1/2;{ 按递推公式将西瓜连续分三次}
until a=0;
writeln(n);{ 输出原西瓜总数n }
end.