Exercice (bac pratique): Chiffres Diviseurs d'un nombre

Écrire un programme Pascal qui permet de saisir un entier n (100£ n £ 10000) et de déterminer et d’afficher tous ses chiffres qui le divisent.

Exemple :
Si N = 2376 alors les chiffres 2, 3 et 6 seront affichés.

c debile sa

repeter n donne
jusqua n dans (100..10000)

pour i de 1 a 9 faire
si n mod i = 0 alors
ecrire i
fin si
fin pour

asmoutta a écrit:c debile sa

repeter n donne
jusqua n dans (100..10000)

pour i de 1 a 9 faire
si n mod i = 0 alors
ecrire i
fin si
fin pour

Il faut afficher les chiffres du nombre "N" qui divisent ce nombre, et non pas tous les diviseurs de "N" !!!
Exemple:
Si N=2222 alors, il y a un seul chiffre qui divise N, c'est le chiffre "2".

C'est pour cette raison qu'il ne faut JAMAIS sous-estimer un exercice et dire qu'il est Débile !!!!

oui
y'a il pas d'exercices de fichiers ? ou d'enregistrement?

asmoutta a écrit: oui
y'a il pas d'exercices de fichiers ? ou d'enregistrement?

Si si, il y en a plusieurs.

Clique ici pour une recherche sur: Exercices + Enregistrement

Clique ici pour une recherche sur: Exercices + Fichiers

analyse de la procédure affiche(n:entier)
résultat=aff
aff=[] convch(n,ch)
pour i de 1 a long(ch) faire
valeur(ch[i],a,e)
si( n mod a=0)
alors écrire(a)
fin si
fin pour
fin affiche

est voilà

nihedb a écrit:analyse de la procédure affiche(n:entier)
résultat=aff
aff=[] convch(n,ch)
pour i de 1 a long(ch) faire
valeur(ch[i],a,e)
si( n mod a=0)
alors écrire(a)
fin si
fin pour
fin affiche

est voilà

bingo !!