Дана строка, состоящая из букв 'a', 'b' и 'c'. Поменяйте в ней все буквы 'a' ** 'b', а...

0 голосов
96 просмотров

Дана строка, состоящая из букв 'a', 'b' и 'c'. Поменяйте в ней все буквы 'a' на 'b', а 'b' — на 'a'.
Строка: bbaaccbccacbbacccbaccacacbbbaabacaaccbbcbcbbccacbaaabaabcaacaaaabbacbcbabbaaacbcbbacccbcabcbbbaacbac


Информатика Начинающий (186 баллов) | 96 просмотров
0

а на каком языке?

0

паскаль

0

ща будет все

Дан 1 ответ
0 голосов
Правильный ответ

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

Архангел (142k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей