Номер 12, страница 130 - гдз по информатике 11 класс учебник Босова, Босова

Параграф 9. Структурное программирование. Глава 2. Алгоритмы и элементы программирования - номер 12, страница 130.

Условие.

12. Напишите программу вычисления $C_n^k=\frac{n!}{(n-k)!·k!}.$ Используйте подпрограмму.

Решение.

Используем функцию для подсчета факториала:

function fac(x:integer):real;
begin
if x=1 then fac:=1
else fac:=x*fac(x-1);
end;
Программа:
function fac(x:integer):real;
begin
if x=1 then fac:=1
else fac:=x*fac(x-1);
end;
var n,k:integer;
begin
write('n=');readln(n);
write('k‹n=');readln(k);
write('n!/(k!*(n-k)!)=',fac(n)/(fac(n-k)*fac(k)):0:0);
readln;
end.