Дана строка, состоящая из букв 'a', 'b' и 'c'. Поменяйте в ней все буквы 'a' на 'b', а 'b' — на 'a'. Строка: bbaaccbccacbbacccbaccacacbbbaabacaaccbbcbcbbccacbaaabaabcaacaaaabbacbcbabbaaacbcbbacccbcabcbbbaacbac
Дана строка, состоящая из букв 'a', 'b' и 'c'. Поменяйте в ней все буквы 'a' на 'b', а 'b' — на 'a'.
Строка: bbaaccbccacbbacccbaccacacbbbaabacaaccbbcbcbbccacbaaabaabcaacaaaabbacbcbabbaaacbcbbacccbcabcbbbaacbac
Ответ(ы) на вопрос:
Гость
var
s:string;
i,n:integer;
begin
Writeln('Введите строку'); Readln(s);
n:=Length(s);
for i := 1 to n do
case s[i] of
'a':s[i]:='b';
'b':s[i]:='a'
end;
Writeln('Результат замены');
Writeln(s)
end.
Тестовое решение:
Введите строку
bbaaccbccacbbacccbaccacacbbbaabacaaccbbcbcbbccacbaaabaabcaacaaaabbacbcbabbaaacbcbbacccbcabcbbbaacbac
Результат замены
aabbccaccbcaabcccabccbcbcaaabbabcbbccaacacaaccbcabbbabbacbbcbbbbaabcacabaabbbcacaabcccacbacaaabbcabc
Не нашли ответ?
Похожие вопросы