FRstudy.me facilite l'obtention de réponses fiables à vos questions. Posez vos questions et obtenez des réponses détaillées et fiables de la part de notre communauté d'experts bien informés.
Sagot :
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
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
Votre engagement est important pour nous. Continuez à partager vos connaissances et vos expériences. Créons un environnement d'apprentissage agréable et bénéfique pour tous. FRstudy.me est votre partenaire pour des solutions efficaces. Merci de votre visite et à très bientôt.