Если есть ПолеВвода1 и ПолеВвода2, то любой пытливый ум напишет очень скоро алгоритм:
...
   с = СтрДлина(ПолеВвода1);
   ПолеВвода = "";
   Для а = 1 по с Цикл
       ПолеВвода = ПолеВвода + Сред(ПолеВвода1, С - а + 1, 1);
   КонецЦикла;
       ПолеВвода2 = ПолеВвода;
...
Но у любой мысли есть тысяча воплощений. Этот алгоритм САМЫЙ ОЧЕВИДНЫЙ.
Пишем свой самый-самый алгоритм.

Выдыхай.

В Казахстане трава созрела?

я думаю, эта трава имеет точное латинское наименование

шо это? куда писать, зачем писать, кому писать?

(4) мы о траве

Лятят перелетные птицы..

(0)Пьем,курим или грибоедствуем?

(2) Тебе достается самый веселый вариант. Уговорил.
(4) Ты можешь написать самый сомнительный алгоритм.

В общем запишу как вандализм и спам.

вроде ж разгар рабочего дня, а ТС уже в хлам:-)

(0) Самый короткий
ПолеВвода2 = ПолеВвода1;

(11)+ А не, тебе же надо реверс строки

(11) Ему бы протрезветь

Переименовал и открыл снова.

(0) Вот так если
ПолеВвода2 = "";
Для Сч = 1 По СтрДлина(ПолеВвода1) Цикл
   ПолеВвода2 = Сред(ПолеВвода1, Сч, 1) + ПолеВвода2;
КонецЦикла;

прекратите, демоны!

(15) Самый похожий алгоритм.

+(17) Я бы сказал, Самсунг...

полеввода2 = 1адовВелоП;

(19) Смело.

(20) у меня работает, ничонезнаю

Думаем, не ленимся...

(0) Курить, так курить!!!
тогда уж 4-ю строчку замени на
ПолеВвода = ПолеВвода + Сред(ПолеВвода1, С - а + Число(Сред(Лог10(НачГода(ТекущаяДата())),Число(Сред(Лог10(НачГода(ТекущаяДата())),7,1))+6,Число(Сред(Лог10(НачГода(ТекущаяДата())),7,1)))), Число(Сред(Лог10(НачГода(ТекущаяДата())),7,Число(Сред(Лог10(НачГода(ТекущаяДата())),7,1)))));

(23) Самый скурпулезный.

(3) Т.Е. ты можешь написать этот алгоритм на латыни?

ПолеВвода2 = Реверс(ПолеВвода1);

(25) я не употребляю. а когда перепью, на мисту не хожу

(26) ты, наверное, архитектор...

(27) Боишься нас?

Через массивы букв и СтрЗаменить ещё не писали?

(30) Писали, много раз. Но признаться боятся.

Через регистр расчета и правила вытеснения разных видов расчетов ещё не было...

Процедура Сформировать()
   ПолеВвода = "";
  ПолеВвода2 = "";
  ПолеВвода = СокрЛП(ПолеВвода1);
   Для Сч = 1 По СтрДлина(СокрЛП(ПолеВвода1)) Цикл
       Символ = Прав(ПолеВвода,1);
       ПолеВвода2 = СокрЛП(ПолеВвода2)+Символ;
       ПолеВвода = СтрЗаменить(ПолеВвода,Символ,"");
   КонецЦикла;
       
       
КонецПроцедуры

Я тоже уже весь дрожу

Извращаться так извращаться :D

   Сообщение = ЭлементыФормы.Полеввода1.Значение;
   Длина = СтрДлина(Сообщение);
   Стр1 = "";
   Стр2 = "";
   
   для ы = 1 по окр(Длина / 2, 0,0) цикл
       Стр1 = Сред(Сообщение, ы, 1) + Стр1 ;
       Стр2 = Стр2 + Сред(Сообщение, длина - ы + 1, 1);
   конеццикла;
   если окр(Длина / 2, 0,0) <> Длина / 2 тогда
       Сообщить(Стр2 + Сред(Сообщение, окр(Длина / 2, 0,0) + 1, 1) + Стр1);
   иначе
       Сообщить(Стр2 + Стр1);
   конецесли;

(34) Пить не умеешь.

(35) Это прием в артиллерии называется "вилка"...

Народ отхлынул, но оставшиеся стали трудиться продуктивно...

Пока ЗначениеЗаполнено(ПолеВвода1) Цикл
   ПолеВвода2 = ПолеВвода2 + Прав(ПолеВвода1, 1);
   ПолеВвода1 = Лев(ПолеВвода1, СтрДлина(ПолеВвода1) - 1 );
КонецЦикла;

В VBS есть StrReverse().

(38) Народ не отхлынул, скрипты отлаживают

... и пишут внешние компоненты

перем Скрипт;

Функция ИнверсияСтроки(Стр)
   Скрипт.language="vbscript";
   Возврат Скрипт.Eval("StrReverse("""+Стр+""")");
КонецФункции


Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");

(40) Вопрос: как сделать простую страницу, которая будет выворачивать мисту наизнанку? 15:45

(43) Назовем его Алгоритм перехватчика...

ПолеВвода = "";
   Для Сч = 1 По СтрДлина(ПолеВвода1) Цикл
       ПолеВвода = ?(Сч = СтрДлина(ПолеВвода1), "", " + ") + "Сред(ПолеВвода1, " + Сч + ", 1)" + ПолеВвода;
   КонецЦикла;
   Сообщить(Шаблон("[" + ПолеВвода + "]"));

(39) Алгоритм шифрования. ПолеВвода1 стирается и повторить нельзя.

(47) Вместо ПолеВвода1 можно использовать временную переменную если нужно сохранить.

(48) Типичное решение 1С: Если хотите чтобы работало корректно можете переписать...

(0)
  с = СтрДлина(ПолеВвода1);
  ПолеВвода = "";
  Для а = 1 по с Цикл
      ПолеВвода = ПолеВвода + Прав(ПолеВвода1,1);
ПолеВвода1 = Лев(ПолеВвода1,)
  КонецЦикла;
      ПолеВвода2 = ПолеВвода;

не то блин (

(45) тут явно грибами попахивает. надо дунуть. а то чуда не будет :)

косяк по кругу пустили, заразная вещь.

(52,53) У вас слишком много странных букв в никах. Даже подозрительные встречаются.

Вот еще вариант для любителей грибов:

Процедура Сформировать()
   ПолеВвода = """""";
   С = СтрДлина(ПолеВвода1);
   Для Сч = -С По -1 Цикл
       ПолеВвода = ПолеВвода + " + Сред(ПолеВвода1, " + (-Сч) + ", 1)";
   КонецЦикла;
   ПолеВвода2 = Шаблон("[" + ПолеВвода + "]");
   //Сообщить(Шаблон("[" + ПолеВвода + "]"));
КонецПроцедуры

(55) Осталось через мнимые числа закоординироваться и мы перейдем к приличной алгебре...

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


Процедура Сформировать()
   ПолеВвода2 = ПодСтр(ПолеВвода1);
КонецПроцедуры

(57) Чё она делает?

(58) как что? строку переворачивает...

+(59) согласен, название не удачное )

+(58) Единственный алгоритм без цикла. Ещё и с рекурсией... Щаз проверим, щаз проверим, щаз проверим, щаз проверим, щаз проверим.....

(61) ну тогда озвучивай критерий "самой-самости" алгоритма )

Интерпретация

Процедура Сформировать()
   С = СтрДлина(ПолеВвода1);
   Для Сч = 1 По С Цикл
       ПолеВвода2 = ПолеВвода2 + Лев(Прав(ПолеВвода1, Сч), 1);
   КонецЦикла;
   Сообщить(ПолеВвода2);
КонецПроцедуры

Хм... рекурсия...

я за +(57)

Функция Реверс(стр)
   Возврат ?(СтрДлина(стр) = 0, "", Прав(стр, 1) + Реверс(Лев(стр, СтрДлина(стр) - 1)));
КонецФункции

(62) У тебя самосамый одинэсный алгоритм. Всегда побеждает тот, к то пишет небесконечную рекурсию. Ибо ничего сложнее рекурсии одноэснеги писать не умеют.
Если только черными запросами не перебьют...

Блин, опередили с рекурсией.

(68) Теперь нужно ждать новую платформу...

(68) у (0) рекурсия не в почете )
(67) нет, мы еще умеем без использования доп. переменных поместить в А мин. значение, в Б - максимальное ))

(70) С сохранением значений?

(71) нет. Есть 2 переменные. А и Б. Числовые. нужно сделать так, чтобы в А было мин. значение, в Б - максимальное. Без использования вспомогательных переменных.

(66)твой вариант рекурсии более точный,чем в (57)

(73) ну да, у меня там после проверки условия не хватает Возврат "";

(73)значит пока второе место :)

(75) Ну конечно, первое место у (0)

(76)участник (0) вне конкуренции(конкурса)

(77) Только для (0) весь конкурс и устраивался. Пора бы уже привыкнуть.
"Когда-то я был первым из однёрки певцов" (с) Макаревич.

(76) ну не знаю, мне больше самым очевидным кажется
Для Сч = 1 По СтрДлина(ПолеВвода1) Цикл
       ПолеВвода2 = Сред(ПолеВвода1, Сч, 1) + ПолеВвода2;
   КонецЦикла;

(0) Если ПолеВвода1 реквизит на форме, тогда у тебя ошибка в коде ибо в случае если реквизит ограниченной длины строка

с = СтрДлина(ПолеВвода1);

вернет длину реквизита, а не длину его значения

(80) Он неограниченный и многострочный... И мультиязычный.

Берите из зада

Самый ленивый алгоритм:
...
Сообщить("Внимательно скопируйте все буквы в обратном порядке используя левую и правую кнопки мыши. Благодарим за содействие.");
...

Еще один вариант рекурсии, с меньшим числом итераций
Функция Перевертыш(Стр)
   ДлСтр = СтрДлина(Стр);
   Если ДлСтр >= 2 Тогда
       Возврат Перевертыш(Прав(Стр, Цел(ДлСтр / 2))) + Сред(Стр, Цел(ДлСтр / 2) + 1, ДлСтр % 2) + Перевертыш(Лев(Стр, Цел(ДлСтр / 2)));
   КонецЕсли;
   
   Возврат Стр;
КонецФункции

(84) Ты чемпион. Уверенное второе место.

(85) вот блин ))

А кто имеем ум, тот сочти число Зверя...

Пока ПустоеЗначение(Стр1)=0 Цикл
       Стр2=Стр2+Прав(Стр1,1);
       Стр1=Сред(Стр1,1,СтрДлина(Стр1)-1);
   КонецЦикла;

   Для Сч=1 По СтрДлина(Стр1) Цикл
       Стр2=Стр2+Симв(КодСимв(Прав(Стр1,Сч)));
   КонецЦикла;

   Х="";
   Для Сч=1 По СтрДлина(Стр1) Цикл
       Х="Сред(Стр1,"+Сч+",1)+"+Х;
   КонецЦикла;
   Сообщить(Шаблон("["+Х+"""""]"));

(88) Самый красный алгоритм.... Хотя у (23) тоже могло получиться красно
.

Расслабились?