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

Question

Информатика

Лукаха

10 октября, 05:26

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

+5

Ответы (1)

Знаете ответ на вопрос?

Матяха · Answer 1

Var s:string;

i, k:integer;

begin;

readln (s) ;

i:=1;

while i<=length (s) - 1 do

begin;

swap (s[i], s[i+1]) ;

i:=i+2;

end;

write (s) ;

end.