Hoàn thiện và sửa lỗi chương trình sau (chương trình đến các chữ số trong xâu s) Program Uses crt Var s= string(30); i:byte Begin Write ( nhap xau s) ; Real(s) Dem:=1; For i:=1 to length[s] do If (s[i]>=‘0’) and (s[i]<=‘9’) then ... Writeln(so luong cac chu so co trong xau s la:); Realn.

Program //thiếu tên chương trình

Uses crt;

Var s= string(30);

i:byte;

Begin

Write (' nhap xau s') ;

Read(s);

Dem:=1;

For i:=1 to length[s] do

If (s[i]>=‘0’) and (s[i]<=‘9’)

then inc(dem);         // không có dấu ...

Writeln( 'so luong cac chu so co trong xau s la: ',dem);

Realn // không phải dấu .

End. //Thiếu End 

Chương trình trên sai : Sửa lại 

Program Hotboy ; (tên khác cũng được)

     Uses crt (thiếu ;)

    Var s= string(30);

           i:byte (thiếu ;)

    Begin

           Write( nhap xau s) ;

           Real(s) (Sai câu lệnh => Readln(s); 

            Dem:=1;

            For i:=1 to length[s] do

             If (s[i]>=‘0’) and (s[i]<=‘9’) then ... (bỏ ...)

            Writeln(so luong cac chu so co trong xau s la:',dem);

     Realn (không .)

End. (thiếu kết thúc chương trình )