Число сочетаний из n элементов по k - Pascal ABC

Формулировка задачи:

По данным натуральным n и k вычислите значение число сочетаний из n элементов по k. Входные данные Вводятся 2 числа - n и k (n,k<=30 ).

Код к задаче: «Число сочетаний из n элементов по k - Pascal ABC»

textual
var n,k,i:integer;
   c:real;
begin
readln(n,k);
if n<k then //это не обязательно,система наверное выдает корректные значения k<=n
 begin
  i:=n;
  n:=k;
  k:=i;
 end;
c:=1;
for i:=1 to k do
c:=c*(n-i+1)/i;
writeln(c:0:0);
end.

13   голосов, оценка 3.769 из 5


СОХРАНИТЬ ССЫЛКУ