Factorial: Difference between revisions
m
→FORTRAN 77: added </lang> tag in order to restore FreeBASIC entry
m (→FORTRAN 77: added </lang> tag in order to restore FreeBASIC entry) |
|||
Line 3,600:
===FORTRAN 77===
<lang fortran> INTEGER FUNCTION MFACT(N)
INTEGER N,I,FACT
FACT=1
Line 3,611 ⟶ 3,610:
MFACT = FACT
RETURN
END</lang>
=={{header|FreeBASIC}}==
<lang freebasic>' FB 1.05.0 Win64
Line 3,643 ⟶ 3,641:
{{out}}
<pre> 1 => 1
2 => 2
3 => 6
Line 3,653 ⟶ 3,650:
8 => 40320
9 => 362880
10 => 3628800</pre>
=={{header|friendly interactive shell}}==
| |||