Nek bạn ơi !!!

Cách giải :Trước tiên ta khai báo các biến- Biến xâu s có kiểu dữ liệu string- Biến chuso và biến chucai dùng để đếm số ký tự chữ số và số ký tự chữ cái.- Biến i tý nữa dùng để chạy vòng for quen thuộc. var s: string; chuso,chucai,i: integer;
Tiếp theo ta viết câu lệnh để nhập xâu
write('Nhap mot xau ky tu: '); readln(s);
Rồi, tiếp ta cho vòng for chạy từ i đến độ dài của xâu (độ dài của xâu chính là ký tự cuối cùng của xâu) và kiểm tra
- Nếu nó là chữ số thì biến chuso +1
if s[i] in ['0'..'9']) then chuso:=chuso+1;
- Nếu nó là chữ cái thì biến chucai +1
if s[i] in ['A'..'Z'] + ['a'..'z'] then chuccai:=chucai+1;
Để cho nó kiểm tra đúng phần tử đang xét chúng ta phải cho 2 điều kiện if này chạy trong một chương trình con được kẹp giữa bởi BEGIN ... END; (Nhớ cho tui là chương trình con kết thúc bằng END; chứ không phải END. nhé)
begin if (s[i] in ['0'..'9']) then chuso:=chuso+1; if s[i] in ['A'..'Z'] + ['a'..'z'] then chucai:=chucai+1; end;
Việc cuối cùng của chúng ta là in kết quả ra thôi
write('Xau co ',chuso,' chu so va ',chucai,' chu cai); readln;