надо...

или бинарный алгоритм вычисления НОД...

А самому написать?
будешь первым :)

спасибо, что, не возведение в квадрат попросил...

значит нет...
придется самому писать ;)

Евклид писал для 1С, когда еще и 1С не было, уважаю

Функция НОД(а,б)
    Остаток =а%б;
    Если Остаток=0 Тогда
        Возврат б;
    Иначе
        Возврат НОД(б,Остаток);
    КонецЕсли;
КонецФункции

(7)
круто!
спасибо большое!

Евклид вообще был умный мужик!

Пока меньшее больше нуля, повторяй:
НОД ему временно ты приравняй,
Большое на меньшее ты раздели,
Остаток ты меньшим теперь назови,
Большим НОД назови ты теперь,
К началу вернись и Евклида проверь!

"Юный техник" форева!!!

(7) Доверяй, но проверяй
НОД(4,7) = 1

+ упс, облажался

(6)
по нод был не остаток от деления насколько я помню

Пока а<>б Цикл
Если а>б Тогда
а=а-б;
Иначе
б=б-а;
КонецЕсли
КонецЦикла

(0) А в наше время он был Эвклидом.

(13) Внезапно : (а) и (а-б) имеют одинаковые остатки по модулю "б"...

(15)
старый стал ленивый
я же написал , что не помню уже ничего

Описание алгоритма нахождения НОД вычитанием

Из большего числа вычитаем меньшее.
Если получается 0, то значит, что числа равны друг другу и являются НОД (следует выйти из цикла).
Если результат вычитания не равен 0, то большее число заменяем на результат вычитания.
Переходим к пункту 1

http://younglinux.info/algorithm/euclidean

делением тоже можно
но делить сложнее

я не подглядывал )))