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) (lập trình pascal) VD: PA

Hoàng Bách

Đã 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) (lập trình pascal)

VD: PAScal

Kết quả: Cac chu cai co trong xau la: p a s c l

p xuat hien 1

a xuat hien 2

s xuat hien 1

c xuat hien 1

l xuat hien 1

Trả Lời

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

Hỏi chi tiết

Quảng cáo

1 câu trả lời 247

Ngọc Anh

2 năm trước

var s: ansistring;
i,j: longint;
a,b: array[1..10000000] of longint;
begin
read(s); j:= 1;
s:= Lowercase(s);
for i:= 1 to length(s) do
begin
inc(a[ord(s[i])]);
If a[ord(s[i])] = 1 then
begin
b[j]:= ord(s[i]);
inc(j);
end;
end;
j:= j-1;
write('Cac chu cai co trong xau la: ');
For i:= 1 to j do
write(chr(b[i]),#32);
writeln;
For i:= 1 to j do
writeln( chr(b[i]),' xuat hien ',a[b[i]]);
end.

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) (lập trình pascal) VD: PAScal (ảnh 1)

...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ì?

1 câu trả lời 247

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

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