Для шифрования слово слева направо разбивается на части по три буквы, после чего первая и третья буква в каждой части меняются местами. Если в последней части только две буквы, они также меняются местами.
Дешифрование производится аналогично.
<span>НИМАРЕЛ - МИНЕРАЛ
ЛЕТОФЕН - ТЕЛЕФОН
НИЛКЙЕА - ЛИНЕЙКА
НОМОТИР - МОНИТОР
РАКДНАША</span> - КАРАНДАШ
PascalABC.NET 3.4
// без массива
begin var (a, b) := ReadInteger2('Задай два первых числа ');
var n := ReadInteger('Сколько всего чисел надо?');
Print(a, b);
for var i := 3 to n do
begin
(a, b) := (b, a + b);
Print(b)
end
end.
// с массивом
begin
var n := ReadInteger('Сколько всего чисел надо?');
var a := new integer[n];
(a[0], a[1]) := ReadInteger2('Задай два первых числа ');
for var i := 2 to n - 1 do
a[i] := a[i - 1] + a[i - 2];
a.Println
end.
1 c 3 a 4 d 5 a
и все готово
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
а = 20<span>*а = 0 = 0
</span>
Ответы на фотографии, удачи :)