|
「数学」小旅行 |
|
今年もたいへんお世話になりました。どうもありがとうございました。
来年も算チャレを楽しみにしています。よろしくお願いいたします。 プログラムでやってみました。SmallBasicです。最初の数と最後の数の差が負の数も含めた意味で偶数になっていると良いとして考えています。 c=0 For i=1 To 5 For j=1 To 5 If i<>j Then For k=1 to 5 If (i-k)*(j-k)<>0 Then For l=1 To 5 If (i-l)*(j-l)*(k-l)<>0 Then For m=1 To 5 If (i-m)*(j-m)*(k-m)*(l-m)<>0 And Math.Remainder(i-m,2)=0 Then c = c+1 EndIf endfor EndIf endfor EndIf EndFor EndIf EndFor EndFor TextWindow.Writeline(c) end: |
|
12月25日（金） 10:02:36
44019 |