Re: PPCM
par TOUFIK AZZI, je pense c'est comme ca
program ppcm;
uses crt;
var x,y,z,ppcm:Integer;
begin
clrscr;
Writeln('taper deux nombre positif :');
ReadLn(x,y);
if x>y then
begin
z:=x;
x:=y;
y:=z
end;
ppcm:=x;
while (ppcm mod y<>0) do
ppcm:=ppcm+x;
WriteLn('ppcm =',ppcm);
end.