Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку - Pascal

Формулировка задачи:

Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку

Решение задачи: «Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку»

Листинг программы

uses crt;
var s,s1:string;
    i:byte;
    c:char;
begin
clrscr;
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2=0 then
 begin
  c:=s[i];
  s[i]:=s[i-1];
  s[i-1]:=c;
 end;
writeln('Зашифрованная строка:');
writeln(s);
readln;
for i:=1 to length(s) do
if i mod 2=0 then
 begin
  c:=s[i];
  s[i]:=s[i-1];
  s[i-1]:=c;
 end;
writeln('Расшифрованная строка:');
writeln(s);
readln
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он предназначен для шифрования и дешифрования строки, где каждый символ в строке заменяется на предыдущий. Сначала программа очищает экран с помощью функции clrscr. Затем она запрашивает у пользователя ввести строку с помощью функции readln. Далее, в цикле for происходит обработка каждого символа в строке. Если текущий индекс делится на 2 без остатка, то происходит следующее:

Символ с текущим индексом сохраняется в переменной c.
Строка сдвигается влево на один символ.
Символ с предыдущим индексом (который был сохранен в переменной c) присваивается на новый индекс (текущий).
Строка сдвигается вправо на один символ. После обработки всех символов, программа выводит зашифрованную строку с помощью функции writeln. Затем происходит чтение ввода с клавиатуры с помощью функции readln. После этого цикл повторяется для всех символов строки, и происходит дешифрование строки, описанное выше. Наконец, программа выводит расшифрованную строку с помощью функции writeln. Программа завершается после чтения ввода с клавиатуры с помощью функции readln.