Написать программу, которая заменяет все заглавные буквы строчными, а строчные – заглавными в заданной символьной строке. (паскаль)

178

391

Посмотреть ответы 2

Ответы на вопрос:

vika2007

Информатика

4,5(97 оценок)

Program x; //работает только для строк var i: longint; s: string; begin readln(s); for i : = 1 to length(s) do if (ord(s[i]) > = 192) and (ord(s[i]) < = 223) then s[i] : = chr(ord(s[i]) + 32) else if (ord(s[i]) > = 224) and (ord(s[i]) < = 255) then s[i] : = chr(ord(s[i]) - 32); writeln(s) end.