bonsoir ,
dans un exo on me demande:
On suppose que 15 nombres entiers compris entre 1 et 100 sont tirés au hasard. Combien y a-t-il parmi eux de nombres pairs ?
j'ai fais:
Sub pairs()
Dim i As Integer
Dim x As Integer
score = 0
For i = 1 To 15
x = Int(Rnd * (100)) + 1
If x=
x = "pair"
score = score + 1
Else
x = "Impair"
End If
Next
MsgBox ("il y a" & " " & score & " " & "nombres pairs")
End Sub
mais dans la partie en gras je ne sais pas quoi mettre pour définir ce qu'est un nombre pair ?
dans un exo on me demande:
On suppose que 15 nombres entiers compris entre 1 et 100 sont tirés au hasard. Combien y a-t-il parmi eux de nombres pairs ?
j'ai fais:
Sub pairs()
Dim i As Integer
Dim x As Integer
score = 0
For i = 1 To 15
x = Int(Rnd * (100)) + 1
If x=
x = "pair"
score = score + 1
Else
x = "Impair"
End If
Next
MsgBox ("il y a" & " " & score & " " & "nombres pairs")
End Sub
mais dans la partie en gras je ne sais pas quoi mettre pour définir ce qu'est un nombre pair ?
