Viết chương trình nhập vào từ bàn phím số nguyên dương N kiểm tra xem số đó có phải là số nguyên tố
2 câu trả lời
Program SNT;
Uses crt;
Var n: int64;
Function ngto(a:longint):boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
If ngto(n) then write(n,' la so nguyen to')
Else Write(n,' khong phai so nguyen to');
Readln
End.
var n:longint;
function checkprime(x:longint):boolean;
var i:longint;
begin
if x<2 then exit(false);
for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
end;
begin
write('Nhap n: '); readln(n);
if checkprime(n) then write('La snt') else write('Khong phai snt');
readln
end.
