Задание:
Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу: А × В=НОД (А, В) × НОК (А, В).
Решение:
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). Аналогично с НОК.
Знаете другой ответ?