Показать сообщение отдельно
  #2  
Старый 07.05.2021, 11:32
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Хм... Как-то так:
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
function fact(n:int64):int64;
begin
  if (n=1) or (n=0) then
    fact:=1
  else
    fact:=fact(n-1)*n;
end;
var
  m,k,l:int64;
  f:int64;
begin
  WriteLn('m?');
  ReadLn(m);
  WriteLn('k?');
  ReadLn(k);
  WriteLn('l?');
  ReadLn(l);
  f:=fact(l)*(fact(m)-fact(k));
  WriteLn('F=',f);
  ReadLn;
end.
Еще не плохо бы добавить проверку на "неотрицательность" вводимых значений, но мне лень...
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием