? Em tên gì thế ? học lớp mấy ? đây là tin 11.
Bài làm:
program voimonster;
uses crt;
var
a,dem:byte;
s:string;
begin
clrscr;
write('nhap sau : ');
readln(s);
a:=length(s);
dem:=0;
for i:=1 to a do
if(s[i]<='9') and (s[i]>='0') then dem:=dem+1;
writeln('số chữ số trong xâu la:',dem);
readln
end.
-----------------------------------------
Anh nghĩ em không nên biết điểm Văn của bạn ý !
1 lần thôi nhé !
Diệu Linh : 06-06-1995




Trả lời kèm Trích dẫn
Đánh dấu