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

Question

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

Comments

распишите поподробнее, причем здесь формула?

Answer 1

Function NOD (var m,n: integer):integer; 
begin 
while (m*n <>0) do 
begin 
m := m mod n; 
n := n mod m; 
end; 
if (m = 0) then NOD := n 
else NOD := m; 
end; 

Используй эту функцию в программе: nod_ab := NOD (A, B); nod_abc := NOD(nod_ab,C). 
Аналогично с НОК.