Viết chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100

Viết chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số thập phân xuất hiện trong xâu s. Thông báo kết quả ra màn hình.
Trả lời:
Chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Cho biết số chữ số thập phân xuất hiện trong xâu s. Thông báo kết quả ra màn hình.
Chương trình:

PHP:

1. program bai_10_chuong_4;
2. uses crt;
3. var
4. s: string[100];
5. i, dem: integer;
6. Begin
7. clrscr;
8. write('Nhap xau vao:'); readln(s); dem:= 0;
9. for i:= 1 to length(s) do
10. if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
11. Writeln('Trong xau s co '»dem,' chu so thap phan');
12. readln;
13. End.

Khi chạy chương trình, giả sử nhập vào xâu s :'Tin hoc 11 co 6 chuong' thì kết quả chương trình in ra màn hình: 'Trong xau s co 3 chu so thap phan'.
Kết quả chương trình có dạng như hình 70 dưới dây:

​