Một số nguyên dương được gọi là số đẹp nếu tổng các chữ số của nó ( trong hệ thập phân) chia hết cho số chữ số

Dưới đây là một chương trình mẫu viết bằng Pascal để tìm số đẹp thứ n theo yêu cầu của bạn. Chương trình sẽ kiểm tra từng số nguyên dương, tính tổng các chữ số, và xác định xem tổng đó có chia hết cho số chữ số hay không.

```pascal
program BEAUTY;

function IsBeautiful(num: Integer): Boolean;
var
sumDigits, countDigits, temp: Integer;
begin
sumDigits := 0;
countDigits := 0;
temp := num;

// Tính tổng chữ số và số chữ số
while temp > 0 do
begin
sumDigits := sumDigits + (temp mod 10);
temp := temp div 10;
countDigits := countDigits + 1;
end;

// Kiểm tra điều kiện số đẹp
IsBeautiful := (sumDigits mod countDigits = 0);
end;

var
n, count, currentNum: Integer;

begin
// Nhập số n từ bàn phím
Write('Nhap n: ');
ReadLn(n);

count := 0;
currentNum := 0;

// Tìm số đẹp thứ n
while count < n do
begin
Inc(currentNum);
if IsBeautiful(currentNum) then
begin
Inc(count);
end;
end;

// Xuất ra số đẹp thứ n
WriteLn('So dep thu ', n, ' la: ', currentNum);
end.
```

### Giải thích chương trình:

1. **Hàm `IsBeautiful`**:
- Hàm này nhận một số nguyên dương `num` và kiểm tra xem nó có phải là số đẹp hay không bằng cách tính tổng các chữ số và số lượng chữ số của nó.
- Nếu tổng chữ số chia hết cho số lượng chữ số, hàm trả về `True`, ngược lại trả về `False`.

2. **Chương trình chính**:
- Nhập giá trị `n` từ bàn phím.
- Sử dụng vòng lặp để kiểm tra từng số nguyên dương bắt đầu từ 1 đến khi tìm được số đẹp thứ n.
- Khi tìm được số đẹp, đếm và khi đạt đến giá trị n, in ra số đẹp thứ n.

3. **Chú ý**: Chương trình này sẽ làm việc nhanh chóng cho n <= 106 vì số đẹp không xuất hiện quá gần nhau.

Bạn chỉ cần chạy chương trình trên môi trường hỗ trợ Pascal để có được kết quả mong muốn!