|
「数学」小旅行 |
|
Microsoft Small Basic を始めて使ってみました。
c=0 For i=1 To 6 For j=1 To 6 For k=1 to 6 For l=1 To 6 For m=1 To 6 For n=1 To 6 If Math.Round((i+j+k+l+m+n) / 6)*6=i+j+k+l+m+n Then c = c+1 endif EndFor endfor EndFor EndFor EndFor EndFor TextWindow.Writeline(c) |
|
8月6日（木） 9:11:38
43594 |