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
Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
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.
Tham gia Cộng đồng Lazi trên các mạng xã hội | |
Fanpage: | https://www.fb.com/lazi.vn |
Group: | https://www.fb.com/groups/lazi.vn |
Kênh FB: | https://m.me/j/AbY8WMG2VhCvgIcB |
LaziGo: | https://go.lazi.vn/join/lazigo |
Discord: | https://discord.gg/4vkBe6wJuU |
Youtube: | https://www.youtube.com/@lazi-vn |
Tiktok: | https://www.tiktok.com/@lazi.vn |
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
Vui | Buồn | Bình thường |