желательно программу полегче, а то в инете страшно смотреть на предлагаемые решения))
Приложения:
Ответы
Ответ дал:
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.
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.
archery:
вроде как проще некуда меняем сначала а на что попало, потом б на а, потом что попало на б
Вас заинтересует
6 месяцев назад
6 месяцев назад
1 год назад
1 год назад
5 лет назад
7 лет назад