viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím.
Ngày đăng:
04/01/2022
Trả lời:
1
Lượt xem:
289
uses crt; var s:string; a,b,c,i:longint; begin clrscr; readln(s); for i:-=1 to length(s) do begin if s[i] in ['A'..'Z'] then a:=a+1; if s[i] in ['a'..'z'] then b:=b+1; if s[i]>'1' and S[i]<'9' then c:=c+1; end; write('co',a,'so ky tu hoa'); write('co ',b,'ky tu thuong'); write('co ',c,'ky tu so); readln end. bạn tham khảo nha chúc bạn học tốt 5 sao CLTHN @huyhoang07 |