過去ログ

banyanyan

これはプログラムの方が早いですねえ。
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer

Dim t As Integer

t = 0
For a = 1 To 6
For b = a + 1 To 7
For c = b + 1 To 8
For d = c + 1 To 9
For e = d + 1 To 10
If (a + b + c + d + e) Mod 5 = 0 Then t = t + 1
Next e
Next d
Next c
Next b
Next a

MsgBox t

　　 7月17日（木） 0:31:20　　 HomePage:明るい家族計画−算数　　32581

過去問題一覧へ戻る