uses crt;
const n=20;
var s:string[n];
i:integer;
begin
readln(s);
for i:=1 to n do
begin
if s[i] in ['Ђ'..'Џ'] then s[i]:=chr(ord(s[i])+32); // от а до п
if s[i] in ['ђ'..'џ'] then s[i]:=chr(ord(s[i])+80); //от р до я
end;
writeln(s);
readkey;
end.
Перевод программы на си |