Bài 3: SẮP XẾP XÂU Xâu kí tự St được lấy từ tập các ký tự a...z, 0...9 và có độ dài tối đa là 255 kí tự. Cho N xâu kí tự St (0 < N 200). Yêu cầu: Thực hiện sắp xếp N xâu kí tự St theo thứ thự không giảm của số lượng các kí tự chữ số có trong mỗi xâu St. Tên file bài làm: SXXAU.PAS Dữ liệu vào: Cho trong file văn bản SXXAU.INP có cấu trúc như sau: - Dòng 1: Ghi số nguyên N. - N dòng tiếp theo: Mỗi dòng ghi một xâu St. Dữ liệu ra: Ghi ra file văn bản SXXAU.OUT theo cấu trúc như sau: - Ghi N dòng: Mỗi dòng ghi một xâu St, các xâu được ghi theo thứ tự đã sắp xếp. Nếu nhập dữ liệu vào sai so với điều kiện thì ghi số -1. Ví dụ: SXXAU.INP 3 c1x2y3z cb1 1cd7hdcbae SXXAU.OUT cb1 1cd7hdcbae c1x2y3z

$\color{blue}{\texttt{V}}\color{red}{\texttt{i}}\color{pink}{\texttt{r}}\color{yellow}{\texttt{u}}\color{green}{\texttt{s}}\color{black}{\texttt{z}}$

`-` Giải pháp:

`+` Duyệt qua tất cả các xâu St, đếm số lượng các kí tự chữ số có trong mỗi xâu

`+` Sắp xếp các xâu St theo thứ tự tăng dần của số lượng các kí tự chữ số.

`+` In ra các xâu St đã được sắp xếp

Code Pascal

program SXXAU;

const
  MAX = 200;

type
  Xau = string[MAX];

var
  n: integer;
  s: array[1..MAX] of Xau;
  count: array[1..MAX] of integer;

begin
  readln(n);
  for i := 1 to n do
  begin
    readln(s[i]);
    count[i] := 0;
    for j := 1 to length(s[i]) do
      if (s[i][j] >= '0') and (s[i][j] <= '9') then
        count[i] := count[i] + 1;
  end;

  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if count[i] > count[j] then
      begin
        swap(s[i], s[j]);
        swap(count[i], count[j]);
      end;

  for i := 1 to n do
    writeln(s[i]);
end.