String18. Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а прописные — в строчные.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
program String18; var i:integer; S:string; begin Write('S:'); Readln (S); for i:=1 to Length(S) do begin if (ord(S[i]) in [97..122,160..175]) then S[i]:=chr(ord(S[i])-32) else if (ord(S[i]) in [224..239]) then S[i]:=chr(ord(S[i])-80) else if (ord(S[i]) in [65..90,128..143]) then S[i]:=chr(ord(S[i])+32) else if (ord(S[i]) in [144..159]) then S[i]:=chr(ord(S[i])+80); end; Writeln(S); end. |
Другие задачи из раздела String можно посмотреть здесь.
Комментарии: