.



              

- 3


3.

- .

, . .

1. , :

n- , , "" . ? !

1. , n - , . . n-1 - :

2. n - n-1 - , :

3. , n- :

4.

, 10 , n.

Procedure Create_succession(k : integer);

var

n : integer;

a : real;

begin

a := 1;

writeln(' ');

for n := 1 to k do

begin

a := a*10/n;

write(a:6:6, ' ')

end;

writeln

end;

Program Problem1; { }

uses WinCrt;

var

k : integer;

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

Procedure Create_succession(k : integer);

var

n : integer;

a : real;

begin

a := 1;

writeln(' ');

for n := 1 to k do

begin

a := a*10/n;

write(a:6:6, ' ')