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 (820 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

 
Một thập niên đầy biến động tại Hewlett/Packard (HP)

Một thập niên đầy biến động tại Hewlett/Packard (HP)

Một thập niên đầy biến động tại Hewlett/Packard (HP) với việc các thành viên hội đồng quản trị (HĐQT) và Giám đốc điều hành công ty liên tục từ chức hoặc bị buộc ngưng việc do rất nhiều lí do khác nhau.

Đưa Android Market lên Kindle Fire

Đưa Android Market lên Kindle Fire

Amazon chỉ cho phép chủ nhân Kindle Fire tải về và cài đặt các ứng dụng từ Amazon Appstore.

Chạy sốt vó đăng kí sim số

Chạy sốt vó đăng kí sim số

Sau ngày 31/12, hai mạng Vinaphone và Mobifone sẽ thu hồi các SIM đã phát hành trước 1/8/2011 nhưng chưa kích hoạt, đưa về kho để tái sử dụng. Thông báo này đã khiến giới buôn bán SIM chạy sốt vó tìm cách đăng kí hàng trăm, thậm chí hàng ngàn SIM số đẹp của mình.

 

Công ty diệt chuột T&C

 

Diet con trung