Question

elaborati o finctie care calculeaza cel mai mic multiplu comun a numerelor a,b

Answer 1

program calcul;
var a,b,cmmc,x,y,r:integer;
begin 
      write('a=');readln(a); 
      write('b=');readln(b); 
      x:=a; 
      y:=b; 
      repeat    
          r:=a mod b;    
          a:=b;    
          b:=r 
      until r=0; 
      cmmc:=(x*y)/ a; 
      write (‘c.m.m.m.c=’,cmmc);
end.