Извлечь корень

Можно ли в редакции 7.7 извлечь корень из числа? Если да то как!?

"Встроенной функции нет. Нашла в интернете:<br><br>Функция Корень(Основание,Степень) <br>Если Степень = 1 Тогда Возврат(Основание); <br>КонецЕсли; <br>Факториал = 1; Степень_ = 1; Сум = 0; <br>СтепеньЕ = 1/Степень*Лог(Основание); <br>Для ии = 1 по 28 Цикл <br>Факториал = Факториал * ии; <br>Степень_ = Степень_ * СтепеньЕ; <br>Сум = Сум + Степень_/Факториал <br>КонецЦикла; <br>Возврат(1+Сум); <br>КонецФункции"

"При "СтепеньЕ = 1/Степень*Лог(Основание);" происходит деление на 0"

"А так?<br><br>Функция Корень(Основание,Степень)<br> Четность = Степень / 2;<br> Если (Основание < 0) И (Четность = Окр(Четность)) Тогда<br> Предупреждение("Для четной степени корня основание должно быть неотрицательным");<br> Возврат("""");             <br> ИначеЕсли (Основание < 0) И (Четность <> Окр(Четность)) Тогда<br> Основание = -1 * Основание;<br> Флаг = 1;<br> КонецЕсли;<br> Если (Степень = 1) ИЛИ (Основание = 1) Тогда <br> Если Флаг = 0 Тогда<br> Возврат(Основание);<br> Иначе <br> Возврат(- 1 * Основание);<br> Основание = -1 * Основание;<br> КонецЕсли;<br> КонецЕсли;<br> Если (Степень = 0) И (Основание = 0) Тогда<br> Возврат(0);<br> ИначеЕсли (Степень = 0) И (Основание <> 0) Тогда<br> Возврат(1);<br> ИначеЕсли (Степень <> 0) И (Основание = 0) Тогда<br> Возврат(0);<br> КонецЕсли; <br> Факториал = 1; Степень_ = 1; Сум = 0;<br> СтепеньЕ = 1/Степень*Лог(Основание);<br> Для ии = 1 по 28 Цикл<br> Факториал = Факториал * ии;<br> Степень_ = Степень_ * СтепеньЕ;<br> Сум = Сум + Степень_/Факториал<br> КонецЦикла;<br> Если Флаг = 1 Тогда <br> Основание = -1 * Основание;<br> Возврат(-1 * (1+Сум));<br> Иначе<br> Возврат(1+Сум);<br> КонецЕсли;<br>КонецФункции"