3 lines
88 B
ObjectPascal
3 lines
88 B
ObjectPascal
begin
|
|
Range(2,1000).Where(x->Range(2,Round(sqrt(x))).All(i->x mod i <> 0)).Print;
|
|
end. |