если 1 то 0
если 0 то 1
?

:) х=1-у

(1) красава

c= a XOR b

(1) помнил, но забыл. ;)

(1) а троичную? :-)

(5) по модулю Пи проще.

(5) :) и как же ты это видишь?

(5)

Функция Из10в3(Чис)
   Если Чис>2 Тогда
       Возврат ""+Из10в3(Цел(Чис/3))+(Чис%3);
   Иначе
       Возврат ""+(Чис%3);
   КонецЕсли;
КонецФункции

Функция Из3в10(Чис)
   ДлинаЧисла = СтрДлина(Чис);
   Если ДлинаЧисла=1 Тогда
       Возврат Число(Чис);
   Иначе
       Возврат Из3в10(Лев(Чис, ДлинаЧисла-1)) * 3 + Число(Прав(Чис,1));
   КонецЕсли;
КонецФункции

Процедура Сформировать()
   
   ВведенноеЧисло = 0;
   Если ВвестиЧисло(ВведенноеЧисло, "", 15, 0)=1 Тогда
       
       ТроичноеВходящее = Из10в3(ВведенноеЧисло);
       ТроичноеИсходящее = "";
       
       Для Идн = 1 по СтрДлина(ТроичноеВходящее) Цикл
           ТроичноеИсходящее = ТроичноеИсходящее + (2-Число(Сред(ТроичноеВходящее, Идн, 1)));
       КонецЦикла;
       
       Сообщить("Результат: "+Из3в10(ТроичноеИсходящее));
       
   КонецЕсли;
   
КонецПроцедуры

накидал побырому

чо, неправильно?

(9) конечно ) в троичной нет числа 3

я стормозил, но "Возврат ""+(Чис%3);" лучше поправить

перегнать в строку и заменить 0>3 1>4 а потом 3>1 4>0