8 lines
115 B
Text
8 lines
115 B
Text
10 CLS
|
|
20 INPUT "Enter an integer:"; N
|
|
30 LET F = 1
|
|
40 FOR K = 1 TO N
|
|
50 LET F = F * K
|
|
60 NEXT K
|
|
70 PRINT F
|
|
80 END
|