Em có cách kiểm tra số chính phương rất dễ:
Còn hàm kiểm tra số nguyên tố có tốc độ nhanh nhất mà mình biết:Code:function ktcp(n:integer):boolean; begin ktcp:=true; if frac(sqrt(n))=0 then exit; ktcp:=false; end;
Code:function ktnt(n:integer):boolean; var i:integer; begin ktnt:=false; if n<=1 then exit; for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then exit; ktnt:=true end;
Bookmarks