Trần Hoàng
01/01/1970
| Số câu hỏi | 0 |
| Số câu trả lời | 1 |
| Điểm | 7 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (1)
-
Trần Hoàng đã trả lời trong câu hỏi: Viết chương trình nhập vào một xâu. Đếm số ký tự hoa, kí tự thường và số ký số có trong xâu Cách đây 5 năm
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.
