algoritmo q calcula MMC de 2 numeros

[GuilhermePortaltecch]

é usando loop

[Jhonas]

exe:

var
  i, x, y, mmc: Integer;
begin
  Readln(x);
  Readln(y);
  mmc := x * y;
  for i := 1 to y do
  if (x*i mod x = 0) and (x*i mod y = 0) and (x*i < mmc) then
    mmc:= x*i;
  Writeln(mmc);
end.

abraço

[Augusto Bule]

Beleza. Como fazer um programa para decompor um numero? Eu fiz assim

Int : r,x,cont

 Inicio

Printf("digite o numero")

Scanf(x)

Repita

 Cont<-2

R<-x/cont

Cont<-cont+1

Ate cont = 7

Printf("o resultado",r)

return 0

 

 

[Jhonas]

seria isso ?

div<-2				 
enquanto(num != 1)faça
  se(num MOD div = 0)entao
   escreva(div)
   num <- num / div
 senão
   div++;
 fim_se
fim_enquanto