Pascal | Kiểm tra số N có phải là số nguyên tố hay không

Kiểm tra số N có phải là số nguyên tố hay không.

Ví dụ:             N = 19            Kết quả là: 19 la so nguyen to

N = 33            Kết quả là: 33 khong phai la so nguyen to

Yêu cầu: Input:   N, là số tự nhiên bất kỳ.

Output: Trả lời “N la so nguyen to”

      hoặc “N khong phai la so nguyen to” tùy theo N.

Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ).

Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1).

Hướng dẫn:

Bài toán được thực hiện qua 3 bước cụ thể như sau:

-         Thông báo nhập liệu, và nhập dữ liệu vào cho N
-         Tiến hành kiểm tra N có phải là số nguyên tố hay không:
-         Xuất câu trả lời “N la so nguyen to” hoặc “N khong phai la so nguyen to” tùy theo giá trị của biến

Chương trình:

Program SNT;
Uses crt;
Var n , i :Integer;                                    // Khai bao bien su dung
BEGIN
            Write(‘Nhap vao mot so:’);        // Thong bao nhap lieu
            Readln(n);                                   // Nhap gtri N, (voi &N la lay d/c bien N)
            i := round( sqrt(n) );
            If( n mod i <> 0) then                 // Xuat cau tra loi cuoi cung
                        Writeln(‘ N la so nguyen to’)
            Else
                        Writeln(‘ N khong la so nguyen to’);
            Readln;
END.