Ответы на вопрос:
Var s: string; i: integer; 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.
Популярно: Информатика
-
mimikatja1225.12.2020 00:50
-
arsaeva7329.11.2022 15:20
-
Солнышко15098604.09.2021 02:20
-
anna19901514.12.2021 22:12
-
лола26907.08.2022 15:05
-
Magster25.03.2023 17:10
-
сырнаядуша21.03.2020 06:17
-
анна226511.09.2022 21:47
-
maks232425.03.2023 17:32
-
Gtfdgrrgd21.05.2023 21:33