Bonjour
Voilà, je suis vraiment bloqué pour résoudre un exercice.
On demande d'écrire un algorithme à l'aide d'une boucle qui affiche tous les diviseurs d'un nombre, exceptés 1 et lui-même.
Exemple : 30 - les diviseurs sont 2, 3, 5, 6, 10, 15.
Moi j'ai fait comme ça mais je crois bien qu'il manque quelque chose.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 program diviseur(input,output); var i,n,y :longint; begin writeln('entrz un nombre entier'); readln(n); y:=n div 2; for i:=2 to y do begin if n mod i=0 then writeln (i) else writeln('pas de diviseur'); end; readln end.
Partager