8 lines
145 B
Text
8 lines
145 B
Text
WRITE(Clipboard) factorial(6) ! pasted: 720
|
|
|
|
FUNCTION factorial(n)
|
|
factorial = 1
|
|
DO i = 2, n
|
|
factorial = factorial * i
|
|
ENDDO
|
|
END
|