Algorithme du ppcm e pgcd

il y a une autre méthode pour le PPCM, par addition. Voila le code en PASCAL :
Function PPCM(A,B:integer);
var a1,b1:integer;
begin
a1:=a;
b1:=b;
WHILE a1<>b1 do
begin
if a1<b1 then
a1:=a1+A
else
b1:=b1+b;
end;
PPCM:=a1;
end;

function recur_pgcd(a,b;integer);integer;
if (a=b) then
pgcd:=a
else if(a>b) then
pgcd:=pgcd(a-b)
else
pgcd:=pgcd(b-a);
end.

Bon à tout à l'heure alors

Concernant l'algorithme du ppcm , il ya déjà eu une discussion sur ce sujet. Tu n'as qu'à vérifier les ressources autour de ce sujet , il ya une discussion ayant comme sujet Algorithme ppcm; j'espère que tu comprendre quelque chose de ces codes en pascal d'où tu pourras tiré l'algorithme.

Cordialement,