Question

Să se realizeze un program în Pascal în care să se calculeze cel mai mare divizor comun și cel mai mic multiplu comun a 2 numere date.

Answer 1

program Hello;

var i, a, b, aux, aux2 :integer;

begin

 write('Dati numerele:'); readln(a,b);

 aux:=a;

 aux2:=b;

 while(aux2<>0) do begin

 i:=aux mod aux2;

 aux:=aux2;

 aux2:=i;

 end;

 

 Writeln('Cmmdc=', aux);

 aux:=a mod b;

 aux2:=a*b;

 while(aux<>0) do begin

 a:=b;

 b:=aux;

 aux:=a mod b;

 end;

  Writeln('Cmmmc=', aux2/b:2:2);

end.