Câu hỏi:

14/06/2023 1,019

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: Bộ 20 đề minh họa Toán, Lí, Hóa, Văn, Sử, Địa…. form chuẩn 2025 của Bộ giáo dục (chỉ từ 49k/cuốn).

Đề toán-lý-hóa Đề văn-sử-địa 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.

Bình luận


Bình luận

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,805

Câu 2:

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

Xem đáp án » 14/06/2023 12,130

Câu 3:

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 8,554

Câu 4:

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

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

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 7,506

Câu 6:

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,964

Câu 7:

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,764