Создайте программу которая кодирует введённый с клавиатуры текст, переставляет соседние символы, затем выводит полученный текст на экран
Создайте программу которая кодирует введённый с клавиатуры текст, переставляет соседние символы, затем выводит полученный текст на экран
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы