Get reliable answers to your questions at Westonci.ca, where our knowledgeable community is always ready to help. Join our Q&A platform to connect with experts dedicated to providing precise answers to your questions in different areas. Our platform offers a seamless experience for finding reliable answers from a network of knowledgeable professionals.
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
Thanks for using our service. We aim to provide the most accurate answers for all your queries. Visit us again for more insights. We hope this was helpful. Please come back whenever you need more information or answers to your queries. We're glad you visited Westonci.ca. Return anytime for updated answers from our knowledgeable team.