Napisati program za izračunavanje formule
c=n!/m!(n-m)!
sa funkcijom za izračunavanje faktorijela.

Listing programa:

PROGRAM faktorijel;
VAR
  n, m: Integer;
  c : Real;
FUNCTION fact(a:Integer):Real;
VAR
  i: Integer;
  p: Real;
BEGIN
  p := 1;
  FOR i:= 1 TO a DO
    p := p * i;
  fact := p;
END;

BEGIN
  Writeln ('Faktorijel broja ');
  Write('n m ');
  Readln(n, m);
  c := fact (n)/ (fact(m)*fact(n-m));
  writeln('faktorijel  = ', c );
  READLN;
END.

Index