pascal问题出售金鱼∶出售金鱼的人决定将缸里的金鱼全部卖出：第一次他卖出全部金鱼的一半加二分之一条金鱼；第二次他卖出剩余金鱼的三分之一加三分之一条金鱼；第三次他卖出剩余金

Question

pascal问题
出售金鱼∶
出售金鱼的人决定将缸里的金鱼全部卖出：
第一次他卖出全部金鱼的一半加二分之一条金鱼；
第二次他卖出剩余金鱼的三分之一加三分之一条金鱼；
第三次他卖出剩余金鱼的四分之一加四分之一条金鱼；
第四次他卖出剩余金鱼的五分之一加五分之一条金鱼；
现在还剩下11条金鱼（不能切开），问原来缸里有多少金鱼？

Answer 1

var
  n:real;
  i,j:integer;

begin
  n:=11;
  for i:=4 downto 1 do
    begin
      j:=i+1;
      n:=(n+1/j)*(j/i);
      writeln('before ',i,': ',n:3:0);
    end;
  writeln(n:0:0);
  writeln;
end.