Question

Помогите пожалуйста,отдаю все баллы

Answer 1

program Exercise;

function Fact (x: Word): BigInteger;

var

       p: BigInteger;

       i: Word;

       

begin

       p := 1;

       

       for i := 1 to x do  

               p := p * i;

       

       Fact := p

end;        

var

      n, k: Word;

       

begin

       Read (n, k);

       Write (Fact(n) / (Fact(k) * Fact(n - k)))

end.