Question

Cho số nguyên N (|N| =10^5). Kiểm tra tính nguyên tố của số N

Ví dụ:

Với N=11 Kết quả: So nguyen to

N=12 Kết quả: Khong phai so nguyen to

Answer 1

Lời giải :

program hotrotinhoc;

var N,i : longint;

function NT(x: longint): boolean;

var i : longint;

begin

NT:=false;

if x<2 then exit;

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

if x mod i=0 then exit;

NT:=true;

end;

Begin

write('N='); Readln(N);

if NT(N) then write('So nguyen to') else write('Khong phai so nguyen to');

readln

end.

Answer 2

uses crt;
var n:integer;
{----------chuong-trinh-con------------}
function ktra(a:integer):integer;
var kt,i:integer;
begin
kt:=0;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then kt:=1;
if kt=0 then ktra:=0
else ktra:=1;
end;
{------------chuong-trinh-chinh-----------}
begin
clrscr;
write('nhap n='); readln(n);
if ktra(n)=0 then write(n,' la so nguyen to')
else write(n,' la hop so');
readln;
end.