Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 81.

Составить программу, подсчитывающую число сочетаний без повторения из N элементов по К элементов.

{Число сочетаний без повторения считается по формуле: Cnk=n!/k!(n-k)! Обозначим:
n, k- переменные для хранения введенных чисел;
С - переменная для хранения результата. Чтобы подсчитать количество сочетаний без повторения, необходимо вычислить n!, (n-к)!, к!
}



uses crt;
var n,k:integer;
al,a2,a3,c:longint;
function factorial (n: integer) longint;
var i: integer;
rez:longint;
begin
  rez:=1;
  for i:=1 to n do
  rez:=rez*i;
  factorial: =rez;
end;

begin
  clrscr;
  writeln('введите n>=k ');
  readln(n,k);
  a1: =factorial (n);
  a2:=factorial (k);
  a3 :=factorial (n-k);
  c:=a1 div (a2*a3);
  writeln('c=',c, ' ' , al, ' ',a2, ' ',a3);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru