function Factorial(N: Byte): Int64;
var
K: Integer; // loop control
begin
Result := 1;
if (N = 0) or (N = 1) then
Exit;
for K := 2 to N do
Result := Result * K;
end;
عنوان | پاسخ | بازدید | توسط |
![]() |
0 | 2876 | admin |
![]() |
0 | 1736 | admin |
![]() |
0 | 3785 | admin |
![]() |
0 | 2094 | admin |
![]() |
0 | 1885 | admin |
function Factorial(N: Byte): Int64;
var
K: Integer; // loop control
begin
Result := 1;
if (N = 0) or (N = 1) then
Exit;
for K := 2 to N do
Result := Result * K;
end;