8 lines
172 B
Text
8 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
|