Хм... Как-то так:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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.
|
Еще не плохо бы добавить проверку на "неотрицательность" вводимых значений, но мне лень... |