Répondre :
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'avoir visité notre site Web, qui traite d'environ Mathématiques. Nous espérons que les informations partagées vous ont été utiles. N'hésitez pas à nous contacter pour toute question ou demande d'assistance. À bientôt, et pensez à ajouter ce site à vos favoris !