Hướng dẫn giải của Tìm các số nguyên tố trong khoảng
Chỉ dùng lời giải này khi không có ý tưởng, và đừng copy-paste code từ lời giải này. Hãy tôn trọng người ra đề và người viết lời giải.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.
Tác giả:
``` Function NT(K:longint):Boolean; Var Can,i:Longint; Begin If (K=2) or (K=3) then Begin NT:=True;Exit; End; If (K<2) or (K mod 2 = 0) or (K mod 3 = 0) then Begin NT:=False; Exit; End; NT:=True; i:=5; Can:=Trunc(sqrt(K)); While i<=Can do Begin if (K mod i = 0) or (K mod (i+2) =0) then Begin NT:=False; Exit; End ELse inc(i,6); End; End;
``
Bình luận