Change test
This commit is contained in:
16
eval-final-projet/input/eval22.l
Normal file
16
eval-final-projet/input/eval22.l
Normal file
@@ -0,0 +1,16 @@
|
||||
entier $a, entier $b;
|
||||
|
||||
pgcd( entier $a, entier $b )
|
||||
entier $c;
|
||||
{
|
||||
$c = $a - ( $a / $b ) * $b;
|
||||
si $c = 0 alors{ retour $b; }
|
||||
sinon{ retour pgcd( $b, $c ); }
|
||||
}
|
||||
|
||||
main() {
|
||||
$a = lire();
|
||||
$b = lire();
|
||||
si $b < $a alors{ ecrire( pgcd( $a, $b ) ); }
|
||||
sinon{ ecrire( pgcd( $b, $a ) ); }
|
||||
}
|
||||
Reference in New Issue
Block a user