Желательно программу полегче, а то в инете страшно смотреть ** предлагаемые решения))

Question

Желательно программу полегче, а то в инете страшно смотреть на предлагаемые решения))

---

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
    var s := ReadlnString('s =');
    s := s.Replace('А', '*_*');
    s := s.Replace('Б', 'А');
    s := s.Replace('*_*', 'Б');
    
    s := s.Replace('а', '*_*');
    s := s.Replace('б', 'а');
    s := s.Replace('*_*', 'б');
    writeln(s);
end.

Comments

вроде как проще некуда меняем сначала а на что попало, потом б на а, потом что попало на б