Bài 1:
program chuyen_thuong;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
write('Xau sau khi doi la: ',s);
readln;
end.
Bài 2:
program dem_so;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(S) do
if s[i] in ['0'..'9'] then d:=d+1;
write('Co ',d,' ki tu so');
readln;
end.
