Question

Пожалуйста, помогите по информатике
80 баллов

Answer 1

я так понял на паскале так как информатика

Среда Разработки PascalABC.NET

function factorial(n:integer):integer;

var f:integer;

begin

f :=1;

if(n = 0) or (n = 1) then

factorial:=1

else

if(n>1) then

begin

for var i:=2 to n do

f*=i;

factorial:=f;

end;

end;

begin

var (n,k):=ReadInteger2('n,k = ');

Writeln('Ck/n = ',factorial(n)/(factorial(n-k)*factorial(k)));

end.