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

1

Ответы и объяснения

2014-03-05T14:50:11+00:00
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;