aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Factorial/BASIC/factorial-5.basic

8 lines
107 B
Text
Raw Permalink Normal View History

Family Day update
2020-02-17 23:21:07 -08:00
100 DEF FACT(N)
110 LET F=1
120 FOR I=2 TO N
130 LET F=F*I
140 NEXT
150 LET FACT=F
160 END DEF
Reference in a new issue Copy permalink