Factorions: Difference between revisions
Content added Content deleted
(Factorions en FreeBASIC) |
|||
Line 353:
=={{header|FreeBASIC}}==
<lang freebasic>Dim As Integer fact(12), suma
fact(0) = 1
For n As Integer = 1 To 11
Line 364:
j = i
While j > 0
d = j Mod b
suma += fact(d)
j \= b
Line 387:
1 2
</pre>
=={{header|Frink}}==
| |||