4 lines
144 B
Text
4 lines
144 B
Text
N = 18: DIM F AS DOUBLE ' Factorial.bas from Russia
|
|
F = 1: FOR I = 1 TO N: F = F * I: NEXT: PRINT F
|
|
'N = 5 F = 120
|
|
'N = 18 F = 6402373705728000
|