Câu hỏi:
14/06/2023 562Viết chương trình nhập vào một xâu ký tự từ bàn phím. Thông báo lên màn hình các chữ cái có trong xâu và số lượng của chúng ( Không phân biệt chữ hoa hay chữ thường).
Siêu phẩm 30 đề thi thử THPT quốc gia 2024 do thầy cô VietJack biên soạn, chỉ từ 100k trên Shopee Mall.
Quảng cáo
Trả lời:
Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte;
i:Byte;
ch:Char;
Begin
Write(‘Nhap xau St: ‘); Readln(St); {Khởi tạo mảng}
For ch:=’A’ To ‘Z’ Do dem[ch]:=0; {Duyệt xâu}
For i:=1 To Length(St) Do
If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]); {Liệt kê các ký tự ra màn hình}
For ch:=’A’ To ‘Z’ Do
If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
End.
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 3:
Câu 5:
viết chương trình nhập vào 1 ký tự. in ra mã ASCII của ký tự đó và in ra ký tự kế tiếp của nó
Câu 6:
Viết chương trình nhập vào 3 số a b c tìm số lớn nhất số bé nhất trong ba số đó c++
Câu 7:
về câu hỏi!