Дана строка, содержа...

[[Bac9.]]

Дана строка, содержащая текст, включающий русские и английские слова. Получить новую строку, заменив исходной все заглавные буквы строчными и наоборот.

[ROMA2PVT]

А гугл зачем?Поискать непробовал.По пять раз одно и тоже.

[[Bac9.]]

Там только задание а проги нету

[ROMA2PVT]

Program stroka;
Uses
   crt;
var
    s: string;
    len,i:integer;
function inv_char(ch:char):char;
begin
  if (ch>='a') and (ch<='z') then
  ch := chr(ord('A')+ord(ch)-ord('a'))
  else
  if (ch>='A') and (ch<='Z') then
  ch := chr(ord('a')+ord(ch)-ord('A'))
  else
  if (ch>='а') and (ch<='п') then
  ch := chr(ord('А')+ord(ch)-ord('а'))
  else
  if (ch>='р') and (ch<='я') then
  ch := chr(ord('Р')+ord(ch)-ord('р'))
  else
  if (ch>='A') and (ch<='П') then
  ch := chr(ord('а')+ord(ch)-ord('А'))
  else
  if (ch>='Р') and (ch<='Я') then
  ch := chr(ord('р')+ord(ch)-ord('Р'))
  else
  if ch='ё' then ch := 'Ё'
  else
  if ch='Ё' then ch := 'ё';
  inv_char:=ch;
end;
begin
  Clrscr;
  Write('Введите строку: ');
  ReadLn(s);
  len:=length(s);
  for i:= 1 to len do
  s[i] := inv_char(s[i]);
  WriteLn('Полученная строка: ');
  WriteLn(s);
  Readkey;
end.