.


              

,


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, ' ')