Дана строка, состоящая из букв '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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы