A voir également:
- Exo algo
- Comment ouvrir un fichier .exo ✓ - Forum Windows
- Comment ouvrir un fichier exo? - Forum Programmation
- Exo de reflexion - Forum Algorithmes / Méthodes
- Exo algo - Forum Programmation
- EXE Explorer - Télécharger - Divers Utilitaires
var a,b,x :entier;
debut
écrire('SVP donner le max des deux nombre en premier');
écrire('a=');
lire(a);
écrire('b=');
lire(b);
répéter
x:= a mod b ;
a:=b;
b:=x;
jusqu'a (x=0);
fait;
écrire('pgcd(a,b)=',a);
fin.
program le dans le pascal ca devra marcher
n'oublie pas entrer le nombre le plus grand en premier