Question

Viết chương trình nhập vào số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không

plss

Answer 1

uses crt;

var n,i,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.