19 lines
347 B
Text
19 lines
347 B
Text
proc nonrec multifac(int n, deg) ulong:
|
|
ulong result;
|
|
result := 1;
|
|
while n > 1 do
|
|
result := result * n;
|
|
n := n - deg
|
|
od;
|
|
result
|
|
corp
|
|
|
|
proc nonrec main() void:
|
|
byte n, d;
|
|
for n from 1 upto 10 do
|
|
for d from 1 upto 5 do
|
|
write(multifac(n,d):10)
|
|
od;
|
|
writeln()
|
|
od
|
|
corp
|