Cho số nguyên dương N. Hãy kiểm tra xem N có phải là số nguyên tố?
Input Format
Dòng đầu ghi số nguyên dương T là số lượng test
T dòng tiếp theo, mỗi dòng ghi một số nguyên dương N
Constraints
T<=10^2
N<=10^8
Output Format
T dòng tương ứng mỗi dòng ghi 1 nếu N là số nguyên tố, hoặc ghi 0 nếu N không là số nguyên tố
Sample Input 0
3
2
6
7
Sample Output 0
1
0
1
Làm trên Pascal nhé,cần gấp !!
Cho số nguyên dương N. Hãy kiểm tra xem N có phải là số nguyên tố? Input Format Dòng đầu ghi số nguyên dương T là số lượng test T dòng tiếp theo, mỗi
By Reagan
var f1, f2: text;
T, i: byte;
N: qword;
Function kt(a: qword): boolean;
Var j: qword;
Begin
If a<2 then exit(false);
For j:=2 to trunc(sqrt(a)) do
If a mod j=0 then axit(false);
Exit(true);
End;
Begin
Assign(f1, ‘input.txt’); reset(f1);
Assign(f2, ‘output.txt’); rewrite(f2);
readln(f1, t);
For i:=1 to t do
Begin
Readln(f1, n);
If kt(n)=true then writeln(f2, 1)
Else writeln(f2, 0);
End;
Close(f2);
End.
program nguyen_to;
uses crt;
var t,i:byte;
n:array[1..100] of longint;
{—Ham-nguyen-to—}
function ktnt(k:longint):boolean;
var r:longint;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
exit(true);
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap t: ‘); readln(t);
for i:=1 to t do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(N[i]);
end;
for i:=1 to t do
if ktnt(n[i]) then writeln(1) else writeln(0);
readln;
end.