Var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln('Ответ');
writeln(b);
end.
Для шифрования слово слева направо разбивается на части по три буквы, после чего первая и третья буква в каждой части меняются местами. Если в последней части только две буквы, они также меняются местами.
Дешифрование производится аналогично.
<span>НИМАРЕЛ - МИНЕРАЛ
ЛЕТОФЕН - ТЕЛЕФОН
НИЛКЙЕА - ЛИНЕЙКА
НОМОТИР - МОНИТОР
РАКДНАША</span> - КАРАНДАШ