chạy kiểu tệp và làm bằng NNpascal ạ, em cảm ơn!!
BÀI 1. Xếp chữ BAI1DE11.PAS
Cuối giờ học cô giáo mầm non sắp xếp N tấm bìa có ghi các chữ cái lấy trong tập
[

Question

chạy kiểu tệp và làm bằng NNpascal ạ, em cảm ơn!!
BÀI 1. Xếp chữ BAI1DE11.PAS
Cuối giờ học cô giáo mầm non sắp xếp N tấm bìa có ghi các chữ cái lấy trong tập
[A..Z], sắp xếp theo từng loại chữ cái và đếm số lượng của chúng. ( với 1  N 
400000). Các em hãy giúp cô giáo thực hiện công việc trên.
Yêu cầu: Hãy đếm số lượng tấm bìa theo các chữ cái.
Dữ liệu vào: Cho trong file văn bản XEPCHU.INP có cấu trúc như sau:
- Dòng 1: Ghi số nguyên dương N là số lượng tấm bìa.
- Dòng 2: Ghi N chữ cái là ký hiệu của N tấm bìa.
Dữ liệu ra: Ghi ra file văn bản XEPCHU.OUT theo cấu trúc như sau:
- Dữ liệu được ghi trên nhiều dòng, dòng thứ i ghi ký hiệu của tấm bìa Si và số lượng của
nó là Ti. Si và Ti được viết liền nhau. 
Ví dụ: TANCHU.INP TANCHU.OUT
6                               A2
AABBCC                 B2
                                C2

uyenvu33 · Answer

var n,i: longint;
a: array [65..90] of longint;
s: ansistring;
begin
assign(INPUT,'XEPCHU.INP'); reset(INPUT);
assign(OUTPUT,'XEPCHU.OUT'); rewrite(OUTPUT);
readln(n);
readln(s);
For i:= 1 to n do
inc(a[ord(s[i])]);
For i:= 65 to 90 do
If a[i] <> 0 then writeln(chr(i),a[i]);
end.

TRẢ LỜI

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Tìm kiếm với hình ảnh

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Lưu vào

TRẢ LỜI

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Lý do báo cáo vi phạm?