Программа вычисляет факториал положительного числа N.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | program functions_4; uses crt; var n: integer; function factorial(m: integer): integer; var i, f: integer; begin f:=1; for i:=1 to m do f:=f*i; factorial:=f; end; begin clrscr; write(‘N > ‘); read(n); write(n, ‘! = ‘, factorial(n)); readkey; end. |
