Câu hỏi:

14/06/2023 811

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ừ 69k).

20 đề Toán 20 đề Văn 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,148

Câu 2:

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

Xem đáp án » 14/06/2023 9,956

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

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 6,424

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 5,957

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

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

Bình luận


Bình luận