Заменить в строке все малые буквы- на большие, а большие- на малые - Pascal ABC

Формулировка задачи:

Дана строка, заменить в этой строке все малые буквы - на большие, а большие - на малые. Спасибо за внимание!


textual

Код к задаче: «Заменить в строке все малые буквы- на большие, а большие- на малые - Pascal ABC»

Var s, newS : string;
    i : integer;
begin
s:='ывТиюб гРпиЗ';
Writeln(s);
i:=1;
newS:='';
For i:=1 to length(s) do
    begin
    If (ord(s[i])>=65) and (ord(s[i])<=90) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=97) and (ord(s[i])<=122) then newS:=newS+chr(ord(s[i])-32) else
    If (ord(s[i])>=122) and (ord(s[i])<=223) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=224) and (ord(s[i])<=255) then newS:=newS+chr(ord(s[i])-32) else
        newS:=newS+s[i];
    end;
s:=newS;
Writeln(s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.300 из 5

Источник
Похожие ответы