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

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.
Bạn thấy bài viết này như thế nào?: 
Average: 6 (572 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Facebook

Những cái tên Facebook "xì tin" của dân mạng Việt

Thế giới Facebook muôn hình muôn vẻ đang ngày càng bành trướng rộng rãi hơn. Đồng thời, mạng xã hội lớn nhất hành tinh dần trở thành "ngôi nhà" thứ 2 cho giới trẻ.

Sáng chế mới của Apple: MacBook lai máy tính bảng

Sáng chế mới của Apple: MacBook lai máy tính bảng

MacBook sẽ có khả năng xoay màn hình thành máy tính bảng, lại có thêm ăng-ten đem đến khả năng của chiếc điện thoại.

iPad là sản phẩm bị ghét nhất thế giới

iPad là sản phẩm bị ghét nhất thế giới

Sự thành công của iPad là không thể phủ nhận bởi nó vẫn là máy tính bảng phổ biến nhất hiện nay. Tuy nhiên nó cũng là máy tính bảng bị ghét nhất thế giới.

Tomdesgin.vn

 

Drupal Services