28 lines
336 B
Text
28 lines
336 B
Text
mf(integer a, n)
|
|
{
|
|
integer o;
|
|
|
|
o = 1;
|
|
do {
|
|
o *= a;
|
|
} while (0 < (a -= n));
|
|
|
|
o;
|
|
}
|
|
|
|
main(void)
|
|
{
|
|
integer i, j;
|
|
|
|
i = 0;
|
|
while ((i += 1) <= 5) {
|
|
o_("degree ", i, ":");
|
|
j = 0;
|
|
while ((j += 1) <= 10) {
|
|
o_("\t", mf(j, i));
|
|
}
|
|
o_("\n");
|
|
}
|
|
|
|
0;
|
|
}
|