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

Gimngazia Gimngazia    1   12.07.2019 16:10    0

Ответы
irinacheprasova irinacheprasova  03.10.2020 01:56
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.     
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика