.


           

eps


Function t(eps : real) : integer;

var

k : integer;

begin

k := -1;

repeat

eps := eps*10;

k := k + 1

until eps > 1;

t := k

end;

{----------------------------------------------------------------------------------------}

begin

write(' eps '); readln(eps);

z := 0; n := 1;

repeat

z := z + sqr(fakt(n))/fakt(2*n);

n := n + 1;

z1 := z + sqr(fakt(n))/fakt(2*n)

until abs(z1 - z) < eps;

write(' ', z1:6:t(eps));

writeln(' ', eps:3:t(eps))

end.

3

,
, a > 1 ?