Câu hỏi:

14/06/2023 857

Viế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).

Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa... kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 70k).

Tổng ôn Toán-lý hóa Văn-sử-đia Tiếng anh & các môn khác

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

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 1:

Sự khác biệt giữa hệ điều hành và phần mềm ứng dụng

Xem đáp án » 14/06/2023 27,323

Câu 2:

Cách xóa chữ M trên máy tính Casio

Xem đáp án » 14/06/2023 10,738

Câu 3:

đâu không phải là phần mở rộng của tệp video?

Xem đáp án » 14/06/2023 7,683

Câu 4:

Nhập vào 2 số nguyên a, b. Tính tổng hiệu tích thương và in kết quả ra màn hình

Xem đáp án » 14/06/2023 7,274

Câu 5:

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++

Xem đáp án » 14/06/2023 6,529

Câu 6:

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ó

Xem đáp án » 14/06/2023 4,451

Câu 7:

Viết chương trình nhập vào N số nguyên tìm số lớn nhất, số nhỏ nhất.

Xem đáp án » 14/06/2023 4,315

Bình luận


Bình luận