Question

Дано n=12. Вычислить n-e значение переменной с.

Answer 1

"Вручную" это подсчитать достаточно сложно, поэтому была написана программа

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, k) := (1.0, 1.0, 1);

 var c:real;

 while k<=12 do

 begin

   c:=a+b/2**k;

   b:=a;

   a:=c;

   Inc(k)

 end;

 c.Println

end.

2.17213848671486