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.
Loga
Sinh Học lớp 12
