Home
Logithèque

TI85

Touve les diviseurs d'un entier positif

Code

Ce programme nommé DLTAN appelle un sous-programme appellé NumStr qui doit être présent.

0->V6:30->dim V6
0->V7:
End

Les signes "/=" en ligne 10 représentent la comparaison"différent de".

Le sous-programme NumStr (nom impératif) est le suivant :

Ans->Z
If Z==0:Then:"0":Return:End
"*"->W
While Z>=1
Z/10->Z
sub("0123456789",iPart (1+10*fPart Z),1)+W->W
End:sub(W,1,lngth W-1)

Mode d'emploi

Exécuter le programme.

Mathématiques à l'oeuvre