9 lines
172 B
Text
9 lines
172 B
Text
|
'Factorial - smallbasic - 05/01/2019
|
||
|
|
For n = 1 To 25
|
||
|
|
f = 1
|
||
|
|
For i = 1 To n
|
||
|
|
f = f * i
|
||
|
|
EndFor
|
||
|
|
TextWindow.WriteLine("Factorial(" + n + ")=" + f)
|
||
|
|
EndFor
|