👤
résolu

Combien de nombres entre 10 et 99 points la propriété d'avoir le chiffre des unités supérieur à celui des dizaines.

Merci

Répondre :

CAYLUSVIZ
Bonjour,
10->99:36
10->999:396
10->9999:3996
10->99999:39996
10->999999:399996
...

CONST deb = 10
CONST fin = 999999
DIM nb AS LONG, i AS LONG, a AS STRING
nb = 0
FOR i = deb TO fin
    'LOCATE 1, 1: PRINT i
    a = LTRIM$(STR$(i))
    IF MID$(a, 2, 1) > MID$(a, 1, 1) THEN
        'LOCATE 2, 1
        PRINT a; " ";
        nb = nb + 1
    END IF
NEXT i
PRINT "nb="; nb
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 !


Viz Asking: D'autres questions