Nhập mảng:

Nhập vào số n từ bàn phím. Lặp lại n, nhập lần lượt các phần tử.

a, Xuất ra các số chính phương

1, Kiểm tra số chính phương:

Chia ra nhiều công việc nhỏ, đầu tiên là kiểm tra phần tử thứ 1 rồi 2, 3, 4,... Tạo hàm Kiểm tra số chính phương: 

Đặt a là phần tử thứ 1

Đặt i là căn bậc của phần tử thứ 1.

Lặp cho đến khi i*i > n.

Nếu i*i = n tức n là số chính phương.

Nếu i*i > n thì kết luận n không phải số chính phương.

- Bạn có thể sử dụng hàm squrt() nhưng mình không rõ hàm đó trong Pascal. Mình thấy là phải import thư viện ấy ạ :(

2, Nhập vào một mảng mới và in ra màn hình số các số chính phương:

Để làm công việc 2, ta chỉ cần thay đặt a = phần tử thứ b với b = 1. Thêm đoạn nếu i*i = n thì thêm n vào mảng. Độ dài của mảng sẽ là các số chính phương.

b, Xuất ra số nguyên tố

Tương tự như câu a, ta chia thành nhiều công việc

1, Kiểm tra số nguyên tố:

Đặt i = 1 ; a = phần tử thứ b.

Đặt biến Dem để đếm số ước của a.

Lặp lại a, kiểm tra số dư của a/i. Nếu dư 0 (tức chia hết) thì tăng Dem 1. Thay đổi i một lượng 1.

Nếu Dem = 2 (tức có 2 ước là 1 và chính a) thì a là só nguyên tố.

2, Nhập vào một mảng mới và in ra màn hình số các số nguyên tố: (tương tự câu a)

c, Xuất ra các số hoàn hảo

1, Kiểm tra số hoản hảo

Đặt i = 1 ; a = phần tử thứ b; Tong = 0 ; b = 0

Đầu tiên ta tìm các ước số thật sự của số a. Ta dùng một biến Tong tính tổng các ước số thật sự của a. Kiểm tra nếu Tong == a  thì a chính là số hoàn hảo. 

Tìm các ước số thực sự của a, ta tạo một mảng rồi thêm các ước của a. 

Tính tổng các ước thực sự của a, lặp lại kích thước mảng ở trên, thay đổi Tong một lượng phần tử b và thay đổi b 1.

Bước cuối cùng là kiểm tra a == Tong, cái này dùng if else đơn giản.

2, Nhập vào một mảng mới và in ra màn hình số các số hoàn hảo: (tương tự câu a)

d, Tính tổng

Tong = 0, b = 0

Lặp lại kích thước mảng ở đầu bài, thay đổi Tong một lượng phần tử b và thay đổi b 1.

Đừng báo cáo và MOD cũng đừng xóa ạ TT. Chất xám và thời gian của mình bỏ ra không ít đâuu ạ :(