19 lines
365 B
Plaintext
19 lines
365 B
Plaintext
code ChOut=8, CrLf=9, IntOut=11;
|
|
|
|
func MultiFac(N, D); \Return multifactorial of N in degree D
|
|
int N, D;
|
|
int F;
|
|
[F:= 1;
|
|
repeat F:= F*N;
|
|
N:= N-D;
|
|
until N <= 1;
|
|
return F;
|
|
];
|
|
|
|
int I, J; \generate table of multifactorials
|
|
for J:= 1 to 5 do
|
|
[for I:= 1 to 10 do
|
|
[IntOut(0, MultiFac(I, J)); ChOut(0, 9\tab\)];
|
|
CrLf(0);
|
|
]
|