Nguyễn Hoàng Giang
(nguyenhoanggiang)
New Member
Var n,i:integer;Cho tớ hỏi caí bài số nguyên tố có làm cak nào ngắn và đơn giản hơn nwax ko?
Mà inc(j) là gì vâyj
Function nt(p:integer):boolean;
Var j:integer;
Begin
nt:=false;
If p<2 then exit
else
Begin
For j:=2 to trunc(sqrt(p)) do
If (p mod j)=0 then exit;
End;
nt:=true;
End;
{}
Begin
For i:=1 to N do
If nt(i) then Write(i,' ');
End.