Chương trình:

program bai_tap

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

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'.