A voir également:
- Algorithme
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Algorithme euromillion excel gratuit ✓ - Forum VB / VBA
- Algorithme ajout rapide snapchat - Forum Snapchat
- Ajout rapide snap - Forum Snapchat
ecrir('Donnez votre nombre :');
lire(x);
m<--x;
taille<--1;
Tantque (m<>0) faire
r<--(m mod 10);
m<--(m div 10);
T[taille]<-- r;
taille<--taille+1;
fintantque;
taille<--taille-1;
b<--true;
i<--1;
j<--taille;
Tantque ((i < j) et (b=true)) faire
Si (T[i]<>T[j]) alors
b<--false;
finsi;
i<--i+1;
j<--j-1;
fintantque;
Si (b=true) alors
ecrire(x,' est un nombre janus !');
Sinon
ecrire(x,' n"est pas un nombre janus !');
finsi;
fin.