Obtenez des réponses claires et concises à vos questions sur FRstudy.me. Découvrez des solutions rapides et fiables à vos problèmes grâce à notre plateforme de questions-réponses bien informée.
Sagot :
Bonsoir,
Le nombre est 9135
Entre 1000 et 9999 il y a 28 multiples de 315(5*7*9)
CONST Faux = (0 = 1)
CONST Vrai = NOT (Faux)
DIM i AS INTEGER, n AS LONG, w AS STRING, c(9) AS INTEGER, j AS INTEGER, x AS INTEGER, ok AS INTEGER
FOR i = 4 TO 31
FOR j = 0 TO 9: c(j) = 0: NEXT j
n = 315 * i
w = LTRIM$(STR$(n))
ok = Vrai
FOR j = 1 TO LEN(w)
x = ASC(MID$(w, j, 1)) - 48
IF x MOD 2 = 0 THEN
ok = Faux
EXIT FOR
END IF
c(x) = c(x) + 1
IF c(x) > 1 THEN
ok = Faux
EXIT FOR
END IF
NEXT j
IF ok THEN PRINT n,
NEXT i
END
Le nombre est 9135
Entre 1000 et 9999 il y a 28 multiples de 315(5*7*9)
CONST Faux = (0 = 1)
CONST Vrai = NOT (Faux)
DIM i AS INTEGER, n AS LONG, w AS STRING, c(9) AS INTEGER, j AS INTEGER, x AS INTEGER, ok AS INTEGER
FOR i = 4 TO 31
FOR j = 0 TO 9: c(j) = 0: NEXT j
n = 315 * i
w = LTRIM$(STR$(n))
ok = Vrai
FOR j = 1 TO LEN(w)
x = ASC(MID$(w, j, 1)) - 48
IF x MOD 2 = 0 THEN
ok = Faux
EXIT FOR
END IF
c(x) = c(x) + 1
IF c(x) > 1 THEN
ok = Faux
EXIT FOR
END IF
NEXT j
IF ok THEN PRINT n,
NEXT i
END
Merci d'être un membre actif de notre communauté. Continuez à poser des questions, à répondre et à partager vos idées. Ensemble, nous pouvons atteindre de nouveaux sommets de connaissances. Merci de visiter FRstudy.me. Revenez bientôt pour découvrir encore plus de réponses à toutes vos questions.