.



              

- 4


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;

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