bonjour a tous j'ai déja poster cette exercice mais je ne c pas comment le noter donc voici l'énoncer il faut imaginer une stratégie . Olivier : J'ai choisi un nombre entier de quatre chiffres . Ce nombre n'est composé que de chiffres impairs et tous différents . C'est un multiple de 5 . Ce nombre et divisible par 9 . Ah j'oubliais ! 7 est un diviseur de ce nombre . Quel est le nombre choisi par Olivier ?
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
Lista de comentários
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