7 lines
99 B
FortranFixed
7 lines
99 B
FortranFixed
|
FUNCTION FACT(N)
|
||
|
|
INTEGER N,I,FACT
|
||
|
|
FACT=1
|
||
|
|
DO 10 I=1,N
|
||
|
|
10 FACT=FACT*I
|
||
|
|
END
|