Question

Hãy lập trình để kiểm tra một số n được nhập vào từ bàn phím và kiểm tra xem nó có phải số nguyên tố hay không?

Answer 1

Chào bạ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.

Comments

Đúng rồi nha! Cảm ơn bạn rất nhiều nhưng mình có góp ý là vì số nguyên tố luôn>0 nên bạn nên dùng kiểu dữ liệu Word nhé!

---

ukm mình hiểu rồi nha

Answer 2

program bt;

uses crt;

var n, i: integer;

begin

clrscr;

readln(n);

if n <= 1 then writeln(n,'day khong phai la so nguyen to');

else

begin

i:=2;

while (n mod i<>0) do i:= i+1;

if i = n then writeln(n,'day la so nguyen to');

else writeln(n,'day khong phai la so nguyen to');

end;

readln;

end.