uses crt ;
var s : string ;
 i, d : byte ;
  begin
  clrscr ; 
  write('nhap xau : ');
   readln(s);
 for i:=1 to length(s) do
  if (ord(s[i])>=48) and (ord(s[i])<=57)
     then d := d + 1 ;
    writeln(' SO KY TU SO TRONG XAU LA: ',d);
     end.

`-` Giải thích :

`+`Đầu tiên, ta nhập xâu s

`+` Cho một vòng lặp chạy từ 1 đến độ dạ của S

`+` Xét :

 Nếu vị trí trong bảng ASCII của phần tử thứ s[i]>=48 và s[i]<=57 thì biến đếm tăng 1 đơn vị

`***` Trong bảng mã ASCII, thì từ số 0 đến 9 thì tương ứng với vị trí trong bảng ASCII là 48 đến 57

`***` Hàm Ord sẽ trả về vị trí của xâu trong ASCII

`+` Xuất biến đếm 

a) Ý tưởng :

- Khởi tạo giá trị biến đếm d = 0

- Duyệt từng phần tử trong xâu :

+ Nếu phần tử trong xâu là 1 kí tự số thì tăng giá trị biến d 1 đơn vị

b) Viết chương trình :

uses crt;

// Khai báo thư viện crt

var S : string; i, d : byte;

// Khai báo S kiểu xâu kí tự và i, d kiểu nguyên

begin

// Bắt đầu thân chương trình

clrscr;

// Xoá màn hình

write('Nhap xau = '); readln(S);

// Thông báo nhập xâu

d := 0;

// Khởi tạo d = 0

for i := 1 to length(S) do

// Giá trị i chạy từ 1 đến độ dài xâu S

if S[i] in ['0' .. '9'] then d := d + 1;

// Nếu S[i] là kí tự số thì tăng d lên 1 đơn vị

write('Co ', d ,' ki tu so ');

// Thông báo kết quả

readln

// Dừng chương trình

end.

// Kết thúc