Bonjour
Voici une version pour la TI 95, j'ai utilisé le registre Alpha où je stocke le nombre
puis je lis les caractères 1 par 1 (RCB), les transforme en chiffres et incrémente les registres correspondant.
Le registre interne 2007 est le registre d'affichage 'x'.
On peut entrez 13 chiffres dans 'x' mais la Ti le passe en notation SCI à partir de onze,
donc on est limité ici à 10 chiffres+ le '.'
d'où le COL 11.
Code : Tout sélectionner
000 CMS 10 STO A 1 STO K BRK COL 11 MRG=
013 LBL 00 8592- RCL A = OLD RCB IND 2007 -48= IF< K GTL CS
038 INC IND 2007 DSZ A GTL 00
047 LBL CS 9 STO A
053 LBL C0 RCL IND A INV IF> L GTL C1 STO L RCL A STO K
071 LBL C1 DSZ A GTL C0 RCL K * RCL L = HLT
086