>>636

goto *Main

#module
#defcfunc beki int n
m=1
repeat n
m=m*100
loop
return m
#global

*Main
dim b,4
b=270415,615282,732902,014791
dim a,4,3
repeat 4
i=cnt
repeat 3
a(i,cnt)=(b(i)\beki(3-cnt))/beki(2-cnt)
loop
loop
repeat 4
i=cnt
repeat 3
mes "a("+i+","+cnt+")は"+a(i,cnt)
loop
loop