.


              

2.


end;
writeln
end;
{---------------------------------------------------------------------------------------}
begin
write(' '); readln(k);
Create_succession(k);
end.
2. , , ,
.
. , . .
? .
x1, x2, x3, ..., :

, i
( 1 . .). , , u = 2. x1, x2, x3, ...




,
= 1.4142135...
, ,
, 2.
Program Problem2;
uses WinCrt;
var
n : integer;
u : real;
{----------------------------------------------------------------------------------------}
Procedure Square_root(n : integer; u : real);
var
i : integer;
x : real;
begin
writeln(' . . . ', u);
x := (u + 1)/2;
for i := 1 to n do
begin
x := (1/2)*(x + u/x);
write(x:3:i, ' ')
end;
writeln
end;
{---------------------------------------------------------------------------------------}