Функция КоличествоПрописью(Количество) Экспорт ЦелаяЧасть = Цел(Количество); ДробнаяЧасть = Окр(Количество - ЦелаяЧасть, 3); Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда ПараметрыПрописи = ", , , , , , , , 0"; ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 1) Тогда ПараметрыПрописи = "целая, целых, целых, ж, десятая, десятых, десятых, м, 1"; ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 2) Тогда ПараметрыПрописи = "целая, целых, целых, ж, сотая, сотых, сотых, м, 2"; Иначе ПараметрыПрописи = "целая, целых, целых, ж, тысячная, тысячных, тысячных, м, 3"; КонецЕсли; Возврат ЧислоПрописью(Количество, ,ПараметрыПрописи); КонецФункции