👤

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 ?


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