Algorithme
Fermé
touzani311
Messages postés
6
Date d'inscription
lundi 9 novembre 2015
Statut
Membre
Dernière intervention
10 novembre 2015
-
9 nov. 2015 à 22:48
touzani311 Messages postés 6 Date d'inscription lundi 9 novembre 2015 Statut Membre Dernière intervention 10 novembre 2015 - 10 nov. 2015 à 00:04
touzani311 Messages postés 6 Date d'inscription lundi 9 novembre 2015 Statut Membre Dernière intervention 10 novembre 2015 - 10 nov. 2015 à 00:04
A voir également:
- Algorithme
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Code ascii algorithme - Guide
- Tester un algorithme en ligne - Forum Programmation
- Ecrire un algorithme qui calcule le produit de deux nombres - Forum Programmation
- Remplir une matrice algorithme - Forum Pascal
1 réponse
nidhogg-59
Messages postés
102
Date d'inscription
mercredi 20 juin 2012
Statut
Membre
Dernière intervention
5 décembre 2015
27
9 nov. 2015 à 23:21
9 nov. 2015 à 23:21
Bonjour,
et donc...
Quelle est la question?
Qu'as-tu essayé pour le moment?
Cordialement.
et donc...
Quelle est la question?
Qu'as-tu essayé pour le moment?
Cordialement.
9 nov. 2015 à 23:30
9 nov. 2015 à 23:37
9 nov. 2015 à 23:44
9 nov. 2015 à 23:51
9 nov. 2015 à 23:54
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.