swf: Сделала свой алгоритм :D

Вначале нумеруем простые числа (помещаем простые числа в массив)/
p -> NUM[p]
Затем создаём массив НОК точно такой же длины, в к-м будем хранить кратности (степени) простых чисел, входящих в разложение.
Первоначально там нули.

Читаем первое число.
1. Проверяем, делится ли оно на 4.
Если да, то уменьшаем число N:= N div 4; НОК[NUM[2]]:= НОК[NUM[2]]+2 и повторяем этот шаг.
Если нет, то проверяем делимость на 2.
Если делится на 2, то N:= N div 2; НОК[NUM[2]]:= НОК[NUM[2]]+2
Переход на шаг 2.

2. Проверяем, делится ли число на 9.
Аналогично шагу 1.
...
Перенесли первое число в НОК.
Читаем второе число.
Аналогично. Но если степень простого числа p оказывается больше, чем записано в НОК[NUM[p]], то переписываем НОК[NUM[p]]

https://forum.sources.ru/index.php?showtopic=419125&view=findpost&p=3834020