Составьте программу нахождения наименьшего общего кратного(НОК) двух чисел,используя...

Question

Составьте программу нахождения наименьшего общего кратного(НОК) двух чисел,используя формулу:
А*В=НОД(А,В)*НОК(А,В).
На паскале

Answer 1

Var A,B:integer;beginreadln(a,b); while A<>B do  begin   if a>b then  a:=a-b  else b:=b-a;  end;  writeln(B) end.
(строчные\прописные без разницы) 

Comments

блин, не дочитала задание-_-