Question

Составить программу вычисления значения следующего выражения
на языке программирования PascalABC

Answer 1

function f(x:integer):integer;

var i,n:integer;

begin

n:=1;

for i:=1 to x do

begin

n:=n*i;

end;

f:=n;

end;

var x,y:integer;

c:real;

begin

readln(x,y); //ввод x,y

c:=f(x)*((f(x-y))/f(y));

writeln(c);

end.