10 ' *** OISAC 2 *** LEN NBR ***
20 INPUT"Votre chiffre : ",c:e=INT(c):f=FRAC(c):lv=LEN(STR$(e))-1:lp=LEN(STR$(f))-3:PRINT"AVANT"lv" Apres"lp:GOTO10

