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

Question

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

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

Гость

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

Accepted Answer

Function NOD(a,b : Longint) : Longint; Begin If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b); end; Function NOK(a,b : Longint) : Longint; Begin NOK:=abs(a*b) div NOD(a,b); End;