создайте программу которая кодирует введённый с клавиатуры текст, переставляет соседние

Сделайте программу которая кодирует введённый с клавиатуры текст, переставляет примыкающие символы, потом выводит приобретенный текст на экран

Задать свой вопрос
Роман Кердемелиди
Как конкретно кодирует?
1 ответ
Var s:string;
i,k:integer;
begin;
readln(s);
i:=1;
while ilt;=length(s)-1 do
 begin;
  swap(s[i],s[i+1]);
  i:=i+2;
 end;
write(s);
end.     
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт