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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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. (строчные\прописные без разницы)