PascalABC.Net
var
str : string;
i : integer;
begin
write('Введите строку: ');
readln(str);
for i := 1 to length(str) do
case str[i] of
'а' : str[i] := 'б';
'А' : str[i] := 'Б';
'б' : str[i] := 'а';
'Б' : str[i] := 'А';
end;
writeln(str);
end.
1 Получение письма 2 Проверь от кого письмо 3 Аккуратно открой 4 Читай 5 Напиши свое письмо в ответ
Ближе всего ответ 2), хотя в реальной жизни все не настолько однозначно.
111, 34, 76, A2 -------------------------
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>