Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу: A*B = НОД(A, B)*НОК(A, B)
Ответы
Ответ дал:
0
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;
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;
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад