Delphi Подпрограммы-функции

[111Владимир111]

Даны неотрицательные целые числа a, b. Найти F(a, b), где F(m,n)=(n!-m!)/((n-m)!) (Определить вспомогательную функцию, вычисляющую факториал).

[Alex11223]

Тут не стол заказов.

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

function fact(n:integer):int64;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

function F(m,n:integer):real;
begin
   Result:=(fact(n)-fact(m))/fact(n-m);
end;

var a,b:integer;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Writeln('F = ',F(a,b):8:5);
   Readln;
end.