Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составить программу, которая в заданном тексте букву "а" заменяет на букву "о", а букву "о" — на букву "а".

Ответ оставил Гость

Var
  S : String;
  i : Byte;
Begin
  Readln(S);
  For i:=1 to Length(S) do
   If S[i]=о then S[i]:=а else
     If S[i]=а then S[i]:=о;
  Writeln(S);
end.