Thầy Hải được trao 1 bức thư tình từ 1 bạn nữ xinh đẹp giấu tên, nhưng trong bức thư, bạn nữ cố tình ghi lẫn lộn giữa chữ hoa, chữ thường và yêu cầu thầy hãy chuyển ngược lại (chữ hoa thành chữ thường và ngược lại). Thầy Hải rất thích, nhưng thầy đang bận ôn thi cho học sinh nên không muốn mất thời gian để chuyển đổi, các bạn hãy viết chương trình giúp thầy nhé. INPUT: Gồm 1 dòng duy nhất là xâu kí tự cần chuyển đổi. (1≤length(S)≤100). OUTPUT: Xâu đã chuyển đổi. Pascal

uses crt;

const fi='thutinh.inp';

        fo='thutinh.out';

var s:string;

     i:byte;

begin

clrscr;

assign(input,fi);

reset(input);

read(s);

close(input);

for i:=1 to length(s) do

if s[i] <> ' ' then

if s[i]=lowercase(s[i]) then upcase(s[i])

else lowercase(s[i]);

assign(output,fo);

rewrite(output);

write(s);

close(output);

end.

uses crt;
var a : string[100];
i : byte;
begin
clrscr;
write('nhap xau ki tu :');
readln(a);
for i:= 1 to length(a) do
if a[i] =  upcase(a[i]) then 
a[i] := lowercase(a[i]) 
else a[i] := upcase(a[i]);
writeln('xau chuyen doi : ', a);
readln
end.