/* PGCD Plus grand commun diviseur Exemple Scriptol, source dans le domaine public, disponible sur www.scriptol.fr/ */ void pgcd(int divisor, int remainder) int x, y if remainder = 0 print "PGCD:", divisor return /if x = int(abs(divisor/remainder)) y = divisor - (remainder * x) print "$divisor/$remainder =", x, " remainder ", y pgcd(remainder, y) return int numa, numb print "Entrer deux nombres." input "Premier nombre:", numa input "Second nombre:", numb pgcd(numa, numb)