Câu hỏi:
14/06/2023 760
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).
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).
Câu hỏi trong đề:
Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
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ừ 110k).
Quảng cáo
Trả lời:
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.
Nhà sách VIETJACK:
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 4:
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++
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
3,780
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ó
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
3,549
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
3,430
Câu 7:
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
2,992
về câu hỏi!