13 lines
187 B
Text
13 lines
187 B
Text
func mfact n k .
|
|
r = 1
|
|
while n > 1
|
|
r *= n
|
|
n -= k
|
|
.
|
|
return r
|
|
.
|
|
for k = 1 to 5
|
|
write "degree " & k & ":"
|
|
for n = 1 to 10 : write " " & mfact n k
|
|
print ""
|
|
.
|