.



29. n k .

Procedure placement(n, k : integer; var

r : longint);

var

i : integer;

begin

r := 1;

for i := 1 to k do r := r*(n - i + 1)

end;

30. n k .

Procedure Combination(n, k : integer; var c : longint);

var

i : longint;

begin

c := 1;

for i := 1 to k do

c := c*(n - k + i) div i

end;




- -  - -  - -