Umístnení souboru www.TrSek.com/zadania/kombinacne_cislo.pas

{ KOMBINACNE_CISLO.PAS                           Copyright (c) Pheo }
{ Výpoèet kombinaèného èísla.                                       }
{                                                                   }
{ Datum:26.04.2005                             http://www.trsek.com }

program kombinacne_cislo;
var n,k:integer;
      c:real;

function faktorial (k:integer):longint;
var i,m:longint;
begin
m:=1;
  for i:=m to k do m:=m*i;
   faktorial:=m
end;

begin
writeln ('zadaj celkovy pocet n: ');
read(n);
writeln ('zadaj pocet prvkov v skupine k: ');
read(k);

c:=faktorial(n)/faktorial(n-k)/faktorial(k);
writeln ('pocet moznosti  je ',trunc(c));
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com