Question

    SỐ NGUYÊN TỐ:

·       Bài toán: Viết chương trình nhập vào một số nguyên dương N (0 < N ≤ 10⁹). Kiểm tra xem số N vừa nhập có phải là số nguyên tố hay không.

·       Dữ liệu vào: N được nhập từ bàn phím.

·       Kết quả ra: In ra ngoài màn hình. Nếu N là số nguyên tố thì in số 1, ngược lại thì in số 0.

·       Lưu ý:  Số nguyên tố là số tự nhiên chỉ có duy nhất hai ước số phân biệt là 1 và chính nó.

·       Ví dụ:

Dữ liệu vào	Kết quả ra
5	1
9	0

 

Answer 1

Var i,n,dem:longint;

Begin

While (n <= 0) and (n > 1000000000) do

Begin

Write('Nhap N = ');readln(n);

End;

If n = 1 then write('0');

If n >= 2 then

For i:=1 to n do

If n mod i = 0 then dem:=dem+1;

If dem=2 then write('1')

Else write('0')

Readln;

End.