[Rokuell]

Наиболее интересную решил 22.8

Код:

function Hack(lim:integer; n:integer):String;
var a,b:Double;
begin
 b := lim;
 a := lim - 2;
 while (a > 0) do
  begin
   b := a + 1/b;
   a := a - 2;
  end;
 b := Frac(b);
 while (n > 0) do
  begin
   b := b * 10;
   n := n - 1;
  end;
 Result := IntToStr(Trunc(b));
end;

lim - предел, в твоей задаче это 103
n - кол-во необходимых знаков, после запятой, в твоей задаче это 8

Ответ: 31303528