Хм... Как-то так:
Код:
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.
Еще не плохо бы добавить проверку на "неотрицательность" вводимых значений, но мне лень...
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.
Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
|