👤

VA ROG!!!
Se citesc doua numere naturale nenule a si b. Sa se scrie un algoritm care afiseaza cel mai mic multiplu comun a celor doua numere.


Răspuns :

var

x, y: integer;

 

function mult(x, y: integer): integer;

begin

if x<>0 then mult:=mult(y mod x, x)  

 else mult:=y;

end;

 

function com(x, y: integer): integer;

begin

com:=(x div mult(x,y))*y;

end;

 

begin

read(x, y);

write(com(x, y));

end.