C1:
a:
program Tin_hoc;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau :');readln(s);
upcase(s);
writeln('Xau in hoa:',s);
readln;
end.
b:
program tin_hoc;
uses crt;
var s:string;
i,k:integer;
begin
writeln('Nhap xau S:');readln(s);
k:=0;
for i:= 1 to lenth(s) do if ord(s[i]) = 32 then k:=1;
if k:=0 then writeln('Xau khong co dau cach') else writeln('Xau co dau cach');
readln;
end.