Помогите решить задачу))) - VB

Формулировка задачи:

Составьте программу определения наименьшего общего кратного двух натуральных чисел. (Блок-схема+программная реализация)

Решение задачи: «Помогите решить задачу)))»

textual
                            Листинг программы 
                        

                            Function LCM(X, Y)
If Y > X Then Z = Y: Y = X: X = Z
XA = X: YA = Y
Do While Y > 0: M = X Mod Y: X = Y: Y = M: Loop
HCF = X: LCM = XA / HCF * YA
End Function

                        

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы