uses crt;
var s:string;
i,d1,d2:byte;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
d1:=0; d2:=0;
for i:=1 to length(s) do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
inc(d1)
else if s[i] in ['0'..'9'] then inc(d2);
write('Co ',d1,' chu cai,',d2,' chu so');
readln
END.
Chúc bạn học tốt!