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

Question

Информатика

Ювеналий

5 апреля, 20:57

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

+3

Ответы (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.