.


           


. .



, n + 1 - .



.

:


.









Program Problem2;

uses WinCrt;

var

n : integer;

x, m, z, eps, u, b : real;

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

{ - - }

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(' x, |x|<1 '); readln(x);

write(' m '); readln(m);

write(' '); readln(eps);

b := 1; u := 1; n := 1;

repeat

u := (m - n + 1)*x*u/n;

b := b + u;

n := n+1

until abs(u) <= eps;

writeln('', 1/m:3:0, ' - ', (1 + x):3:t(eps));

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

end.

2

,


: