Функция вычисления 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.



Просмотров: 1681
10.02.2015, 10:27 -

Категория: Статьи » Программирование » Pascal