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

Trâm Anh

Đã trả lời bởi chuyên gia

· 00:00 02/02/2024

Đã trả lời bởi chuyên gia

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

Trả Lời

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

2 câu trả lời 163

sharking

1 tháng trước

làm bài

0 bình luận

Đăng nhập để hỏi chi tiết

Ngọc Anh

2 năm trước

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.

...Xem thêm

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

2 câu trả lời 163

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 12