Question

Выполнить 1г
даю 75 баллов

Answer 1

===== PascalABC.NET =====

begin

 var (x, eps) := ReadReal2;

 var (z, f, k2, p, s, k) := (1, 1.0, Sqr(x / 2), 1.0, 0.0, 0);

 var a1, a2: real;

 a1 := 0;

 repeat

   p *= k2;

   f *= (k + 1);

   a1:= a2;

   a2 := z / Sqr(f) * p;

   s += a2;

   z := -z;

   k += 1

 until Abs(a1-a2) <= eps;

 s.Println

end.