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

7 lines
90 B
Plaintext

10 INPUT N
20 LET FACT=1
30 FOR I=2 TO N
40 LET FACT=FACT*I
50 NEXT I
60 PRINT FACT