Функция вычисления n! на Pascal
Функция вычисления n!
function Factorial(n: integer): integer;
begin
Result := 1;
for var i:=2 to n do
Result *= i;
end;
var n: integer;
begin
write('Введите n: ');
readln(n);
writelnFormat('{0}! = {1}',n,Factorial(n));
end.
10.02.2015, 10:27 -
Категория: Статьи » Программирование » Pascal