Nouveau Programme : "DIVISEUR"

[BenBiz]

Ce programme que je vous propose consiste à donner dans l'ensemble des entiers naturels les diviseurs d'un nombre, donné au départ.

Voilà son énoncé :

"NOMBRE"?→A
For 1→N To √A
A/N→X
If Frac X=0
Then N▲
X▲
Next
"FIN"


En appuyant succesivement sur la touche [EXE] jusqu'à affichage de "FIN", on obtient les diviseurs du nombre.

Voilà, c'était ma petite proposition du jour ^^, à Mike de voir si il s'en sert

BenBiz[/img][/list]