Составить программу в паскале:
10-11 класс
|
C=n!/((n-k)!*k!)
var
n,k,i:Integer;
c,fact,fact2,fact3:LongInt;
Begin
Read(n,k);
fact:=1;
fact2:=1;
fact3:=1;
for i:=2 to n do
begin
fact:=fact*i;
end;
for i:=2 to (n-k) do
begin
fact2:=fact2*i;
end;
for i:=2 to k do
begin
fact3:=fact3*i;
end;
c:=fact div (fact2 * fact3);
Writeln(c);
end.
Другие вопросы из категории
выводящую на экран, с клавиатуры одномерный массив из 10 значений. Выполнить над
ними следующие действия
Вывести элементы в обратном порядке
Поменять местами 1 и последний
элементы
Найти среднее арифметическое элементов
массива
Найти min и max
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
2. Составить программу для упорядоченное двух элементов по убыванию.
программу меняющихся местами первую и последнюю цифру.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.