Написать программу, которая заменяет все заглавные буквы строчными, а строчные – заглавными в заданной символьной строке. (Паскаль)
Ответы
Ответ дал:
2
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад