vanko78 ➤ Ну что же, ждем формулу уважаемого fkr

код вида АП предварительно обрезаем до первых трёх цифр, т.е. К = Лев(СокрЛП(КодВидаАП),3); // (где КодВидаАП - это либо трёх, либо четырёх, либо пятизначный код)

СтрокаМРЦ = "00,237,242,248,252,258,266,271,276,283,286,293,299,309,314,318,324,331,338,343,348,353,358,366,372,377,382,389,397,402,407,414,417,424,431";
СтрокаМОЦ = "00,201,206,211,216,220,225,230,235,240,245,249,256,259,266,269,275,281,285,292,296,300,304,310,314,319,325,331,335,339,345,348,356,358,366";
СтрокаМПЦ = "00,192,198,203,207,213,217,221,227,231,237,241,246,250,256,260,264,270,274,280,284,291,295,299,303,307,313,317,324,328,332,338,341,346,352";
// =МРЦ=
Ц0 = 2*Число(Сред(СтрокаМРЦ,(МАКС(0,мин(СтрДлина(СтрокаМРЦ)-2,4*(Окр(?(К="200",МАКС(Г,40),Г)+.5,0,0)-28)))),3));
Ц = ?(Найти("200,212,236,280",К)>0,?(Найти("280",К)>0,МАКС(Ц0,806),Ц0),?(Найти("232,237,239,242,251,252",К)>0,806,?(Найти("229,230,231,233,234,235",К)>0,1112,?(Найти("440,441,442,443,450,451,452,453",К)>0,318.66666,0))))*?((Е>.375)и(Е<.5)и(К="200"),.5,Е); // основная
Ц = Окр(Ц,2,1)+?(Ц-Окр(Ц,2,1)>0,0.01,0);
// =МОЦ=
Ц0 = 2*Число(Сред(СтрокаМОЦ,(МАКС(0,мин(СтрДлина(СтрокаМОЦ)-2,4*(Окр(?(К="200",МАКС(Г,40),Г)+.5,0,0)-28)))),3));
Ц1 = ?(Найти("200,212,236,280",К)>0,?(Найти("280",К)>0,МАКС(Ц0,654),Ц0),?(Найти("232,237,239,242,251,252",К)>0,654,?(Найти("229,230,231,233,234,235",К)>0,900,?(Найти("440,441,442,443,450,451,452,453",К)>0,265.33333,0))))*?((Е>.375)и(Е<.5)и(К="200"),.5,Е); // основная
Ц1 = Окр(Ц1,2,1)+?(Ц1-Окр(Ц1,2,1)>0,0.01,0);
// =МПЦ=
Ц0 = 2*Число(Сред(СтрокаМПЦ,(МАКС(0,мин(СтрДлина(СтрокаМПЦ)-2,4*(Окр(?(К="200",МАКС(Г,40),Г)+.5,0,0)-28)))),3));
Ц2 = ?(Найти("200,212,236,280",К)>0,?(Найти("280",К)>0,МАКС(Ц0,622),Ц0),?(Найти("232,237,239,242,251,252",К)>0,622,?(Найти("229,230,231,233,234,235",К)>0,854,?(Найти("440,441,442,443,450,451,452,453",К)>0,221.33333,0))))*?((Е>.375)и(Е<.5)и(К="200"),.5,Е); // основная
Ц2 = Окр(Ц2,2,1)+?(Ц2-Окр(Ц2,2,1)>0,0.01,0);