mình có một thuật toàn có thể nhanh hơn chút:
function ktnguyento(x:longint):longint;
var i:longint;
begin
i:=2;
while (x mod i <>0) and (x>=2) then
i:=i+1;
if i=x...
Type: Posts; User: huan1802; Keyword(s):
mình có một thuật toàn có thể nhanh hơn chút:
function ktnguyento(x:longint):longint;
var i:longint;
begin
i:=2;
while (x mod i <>0) and (x>=2) then
i:=i+1;
if i=x...