Westonci.ca is your trusted source for finding answers to all your questions. Ask, explore, and learn with our expert community. Join our Q&A platform to connect with experts dedicated to providing precise answers to your questions in different areas. Join our platform to connect with experts ready to provide precise answers to your questions in different areas.
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
We hope you found what you were looking for. Feel free to revisit us for more answers and updated information. Thanks for stopping by. We strive to provide the best answers for all your questions. See you again soon. Stay curious and keep coming back to Westonci.ca for answers to all your burning questions.