Question

Антон увлекся кодированием и закодировал слово с помощью букв русского алфавита.В итоге он получил следующие слово: ЕЖЁЖЗЖЬ. Чтобы раскодировать слово,необходимо каждую букву заменить на вторую за ней в русском алфавите( А-В,В-Д...,Ю-А).Известно,что данный алгоритм нужно применить 4 раза подряд.

Answer 1

Для решения этой задачи можно воспользоваться простенькой программой, которая делает все сдвиги:

PascalABC.NET 3.4.2, сборка 1933 от 01.04.2019

begin

 var alph := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'.ToCharArray;

 var w := ReadlnString;

 for var i := 1 to 8 do

   for var x := 1 to w.Length do  

   begin

     var ind := alph.IndexOf(w[x]);

     w[x] := alph[ind + 1 = 33 ? 0 : ind + 1];

   end;

 w.Println

end.

Результат в приложении.

Ответ: МОНОПОД