.


           

5. :


writeln(' ');
Create_succession(x, eps);
end.
 
5. :

m - , 0 ,

, eps, 0 < eps < 1.
n- , , .
Program Problem5;
uses WinCrt;
var
x, m, eps : 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;
{----------------------------------------------------------------------------------------}
Procedure
Create_succession(x, m, eps : real);
var
n : integer;
u : real;
begin
u := 1;
n := 1;
repeat
u := u*(m - n + 1)*x/n;
write(u:3:t(eps), ' ');
n := n + 1
until abs(u) <= eps;
writeln
end;
{----------------------------------------------------------------------------------------}
{ }
begin
write(' x, |x| < 1 '); readln(x);
writeln(' m, ');
write(' '); readln(m);
write(' eps '); readln(eps);
writeln(' ');
Create_succession(x, m, eps)
end.