Description
Định nghĩa: Số nguyên tố là số tự nhiên không có ước nào khác ngoài 11 và chính nó.
Kiểm tra một số nguyên dương nn có là chính phương hay không?
Input
Dòng đầu ghi số nguyên TT - Số test case (1≤T≤1000000)
TT dòng sau, mỗi dùng ghi số nguyên nn, trong đó, 1≤n≤1000000
Output
Nếu N là nguyên tố, ghi YES, ngược lại ghi NO
Lời giải:
Ở đề có yêu cầu kiểm tra n có phải số chính phương không như ở Output thì đề lại không yêu cầu in ra có phải số chính phương không . Mình sẽ làm cả số chính phương nữa nhé nếu cần thì bạn chỉ cần xóa đi 2 dấu { và }.
Program hotrotinhoc;
var n : integer;
function kt(x: integer): integer;
var j: integer;
begin
kt:=false;
if x<2 then exit;
for j:=2 to trunc(sqrt(x)) do
if x mod j =0 then exit;
kt:=true;
end;
begin
write('N='); readln(n);
if nt(n) then write('YES') else write('NO');
{if n=sqr(trunc(sqrt(n))) then write('YES') else write('NO');}
readln
end.