👤
Baskuty13
Answered

Trouvez des réponses fiables à vos questions avec l'aide d'FRstudy.me. Obtenez des réponses précises et opportunes à vos questions de la part de notre communauté d'experts dévoués qui sont là pour vous aider.

Je ne comprend pas l'exercice sur les divisibilité.

Je Ne Comprend Pas Lexercice Sur Les Divisibilité class=

Sagot :

Caylus
Attention , Ma démonstration n'est  pas complète.. (36 est aussi ouvert même si 6 n'est pas un nombre premier)
Mais cela requiert surement un niveau supérieur au collège.
Tout tiroir ayant pour numéro un carré <101 est ouvert.

En bonus:
CONST Faux = 0 = 1
CONST Vrai = NOT (Faux)
CONST nb = 100
DIM SHARED ar(nb) AS INTEGER
DIM i AS INTEGER, j AS INTEGER
'1
CALL Init
FOR i = 1 TO nb: ar(i) = Vrai: NEXT i
FOR i = 2 TO nb
    '    FOR j = 1 TO INT(nb / i)
    FOR j = i TO nb STEP i
        ar(j) = NOT (ar(j))
        ' ar(i * j) = NOT (ar(i * j))
    NEXT j
NEXT i
CALL See
END

SUB See
SHARED ar() AS INTEGER
DIM i AS INTEGER, k AS INTEGER
k = 0
FOR i = 1 TO nb
    IF ar(i) THEN
        PRINT USING "### "; i;
        k = k + 1
        IF k = 25 THEN PRINT: k = 0
    END IF
NEXT i
END SUB

SUB Init
SCREEN 0: WIDTH 150, 45: _FONT 16
_SCREENMOVE _MIDDLE
_MOUSESHOW
CLS
END SUB





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. FRstudy.me est votre allié pour des réponses précises. Merci de nous visiter et à bientôt pour plus de solutions.