Lister les diviseurs d’un entier - TI

Pour connaître la liste des diviseurs d’un entier $n$ donné, on peut tester tous les entiers $a$ de $1$ à $n$.

L’utilisateur entre un entier $n$, et le programme fait tourner une boucle for de $1$ à $n$. Pour chaque valeur du paramètre $i$ de la boucle, le programme teste si la partie décimale partDéc de $\dfrac{n}{i}$ est égale à zéro. Si c’est le cas il affiche $i$, sinon il continue.

$n$ un entier

|demander $n$

|pour $i$ allant de $1$ à $n$

|si la partie décimale de \left(\dfrac{n}{i}\right)=0 alors afficher $i$

• prgm►▼entrer « Prompt » alphalog « N » entrer
• prgm▼▼▼entrer « For( » alpha$x^{2}$ « I »  ,   1   ,  alphalog « N » )
• prgmentrer « If » math► « NUM » ▼▼▼entrer « partDéc( »
  alphalog « N » ÷ alpha$x^2$ « I » )
  2ndemathentrer « = » 0 entrer
• prgm▼entrer « Then » entrer
• prgm►▼▼ « Disp » entrer alpha$x^{2}$ « I »
• prgm▼▼▼▼▼▼ « End » entrer entrer
  prgm▼▼▼▼▼▼ « End »