Welcome to Westonci.ca, where curiosity meets expertise. Ask any question and receive fast, accurate answers from our knowledgeable community. Experience the ease of finding reliable answers to your questions from a vast community of knowledgeable experts. Connect with a community of professionals ready to help you find accurate solutions to your questions quickly and efficiently.
Sagot :
Hello,
there are 5 differents sums:
16,18,20,22,24.
-------------------------------------------------------
Dim i As Integer, j As Integer, k As Integer, l As Integer, u As Integer, v As Integer, nb As Integer
Dim mat(4, 4) As Integer
nb = 0
For i = 1 To 4
For j = 1 To 4
If j <> i Then
For k = 1 To 4
If k <> j And k <> i Then
l = 10 - k - j - i
If l > 0 And l < 5 And l <> i And l <> j And l <> k Then
mat(1, 1) = i
mat(1, 2) = j
mat(1, 3) = k
mat(1, 4) = l
For u = 2 To 4
For v = 1 To 4 - u + 1
mat(u, v) = mat(u - 1, v) + mat(u - 1, v + 1)
Next v
Next u
'Call visu(mat())
nb = nb + 1
Print nb,
mat(4, 1)
End If
End If
Next k
End If
Next j
Next i
End
Sub visu (m() As Integer)
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 4 - i + 1
Print m(i, j);
Next j
Next i
End Sub
Thank you for your visit. We're committed to providing you with the best information available. Return anytime for more. Thank you for visiting. Our goal is to provide the most accurate answers for all your informational needs. Come back soon. Discover more at Westonci.ca. Return for the latest expert answers and updates on various topics.