RosettaCodeData/Task/Factorial/BASIC/factorial-6.basic

7 lines
90 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
10 INPUT N
20 LET FACT=1
2020-02-17 23:21:07 -08:00
30 FOR I=2 TO N
40 LET FACT=FACT*I
50 NEXT I
60 PRINT FACT