Exercice (bac pratique): Chiffres d'un nombre vérifiant une propriété

Écrire un programme Pascal qui permet d’afficher tous les entiers de l’intervalle [10000, 20000] tel que le chiffre du milieu est égal à la somme des autres chiffres.

Exemple :

12942 sera affiché car : 1+2+4+2=9

nabiL a écrit:Écrire un programme Pascal qui permet d’afficher tous les entiers de l’intervalle [10000, 20000] tel que le chiffre du milieu est égal à la somme des autres chiffres.

Exemple :

12942 sera affiché car : 1+2+4+2=9

pour i de 10000 a 20000 faire
a=i div 10000
b=i mod 10000 div 1000
c= i mod 100 div 10
d= i mod 10
e=i mod 1000 div 100
si a+b+c+d =e alors
ecrire (i)
fin si
fin pour




pour i de 10000 a 20000 faire
convch(i,ch)
x=ord('0')
v=(ord(ch[1])-x)+(ord(ch[2])-x)+(ord(ch[4])-x)+(ord(ch[5])-x)
si v<10 alors
si chr(v+x)=ch[3] alors
ecrire(i)
fin si
finsi
fin pour