//******************************************************************************
Функция Экспонента(Х,Точность=0.000000000001)
        Р=1; К=1; Дельта=1;
        Пока ?(Дельта>0,Дельта,-Дельта)>Точность Цикл
                Дельта = Дельта * Х / К;
                К = К + 1;
                Р = Р + Дельта;
        КонецЦикла;
        Возврат Окр(Р,СтрДлина(Строка(Точность))-2);
КонецФункции // Экспонента

//******************************************************************************
Функция Степень(знач а,в) Экспорт
        м = ?(а<0,?(в%2=0,1,-1),1);
        а = ?(а<0,-а,а);
        р = ?(в<0, 1/Степень(а,-в), Экспонента(Лог(а)*в));
        Возврат р * м;
КонецФункции // Степень

//******************************************************************************
Функция глСуммаАннуитетногоПлатежа(Сумма,Срок,Ставка) Экспорт
        Если Срок   = 0 Тогда Возврат 0; КонецЕсли;
        Если Сумма  = 0 Тогда Возврат 0; КонецЕсли;
        Если Ставка = 0 Тогда Возврат 0; КонецЕсли;
        СтавкаВМес = Ставка/(100*12);
        Возврат (Сумма * СтавкаВМес) / (1 - Степень(1 + СтавкаВМес, -Срок));
КонецФункции // глСуммаАннуитетногоПлатежа