Question

Напишите функцию, которая вычисляет факториал натурального числа N (PascalABC)

Answer 1

function factorial(n:integer):integer;(или longint, если n большое)
   i,ch:integer;
begin
   ch:=1;
   for i:=1 to n do
     ch:=ch*i;
   factorial:=ch;
end;