Вопрос по информатике:
Вычислить значение величины
C= n! / (n-k)!*k!
Где, например, 5! --факториал числа 5 и 5! = 1*2*3*4*5.
PascalABC
если можно,то пожалуйста, с помощью функции или процедуры
Пожаловаться
- 06.09.2018 11:34
- Информатика
- remove_red_eye 5204
- thumb_up 21
Ответы и объяснения 1
Program n1;
var n,k: integer;
c: real;
function fact(n: integer): real;
var i: integer;
p: real;
begin
p:=1;
for i := 2 to n do p:=p*i;
fact:=p;
end;
begin
write('n=');
readln(n);
write('k=');
readln(k);
c:=fact(n)/(fact(n-k)*fact(k));
writeln(c);
end.
var n,k: integer;
c: real;
function fact(n: integer): real;
var i: integer;
p: real;
begin
p:=1;
for i := 2 to n do p:=p*i;
fact:=p;
end;
begin
write('n=');
readln(n);
write('k=');
readln(k);
c:=fact(n)/(fact(n-k)*fact(k));
writeln(c);
end.
Пожаловаться
- 07.09.2018 09:39
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы