Program ppcm_pgcd;
Var a, b : integer;
(************************************)
Procedure saisie (Var a,b:integer);
Begin
Repeat
Writeln('Donner deux entiers >0');
Readln (a, b);
Until (a>0) and (b>0);
End;
(***********************************)
Procedure affiche(a,b:integer);
Var k:integer;
Begin
k := 0;
Repeat
k := k+1
Until (a*k) mod b = 0;
Writeln ('ppcm de ', a, ' et ', b, ' = ', a*k);
Writeln ('pgcd de ', a, ' et ', b, ' = ', b div k);
End;
(***************** P.P ****************)
Begin
saisie(a,b);
affiche(a,b);
End.
UHJvZ3JhbSBwcGNtX3BnY2Q7ClZhciBhLCBiIDogaW50ZWdlcjsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKUHJvY2VkdXJlIHNhaXNpZSAoVmFyIGEsYjppbnRlZ2VyKTsKQmVnaW4KUmVwZWF0CldyaXRlbG4oJ0Rvbm5lciBkZXV4IGVudGllcnMgPjAnKTsKUmVhZGxuIChhLCBiKTsKVW50aWwgKGE+MCkgYW5kIChiPjApOwpFbmQ7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKUHJvY2VkdXJlIGFmZmljaGUoYSxiOmludGVnZXIpOwpWYXIgazppbnRlZ2VyOwpCZWdpbgprIDo9IDA7ClJlcGVhdAprIDo9IGsrMQpVbnRpbCAoYSprKSBtb2QgYiA9IDA7CldyaXRlbG4gKCdwcGNtIGRlICcsIGEsICcgZXQgJywgYiwgJyA9ICcsIGEqayk7CldyaXRlbG4gKCdwZ2NkIGRlICcsIGEsICcgZXQgJywgYiwgJyA9ICcsIGIgZGl2IGspOwpFbmQ7CigqKioqKioqKioqKioqKioqKiBQLlAgKioqKioqKioqKioqKioqKikKQmVnaW4Kc2Fpc2llKGEsYik7CmFmZmljaGUoYSxiKTsKRW5kLg==