不要求效率一个个试除不就行了?
Pascal:(省略头尾)
for i:=1 to n do
if n mod i=0 then a[i]:=true;(a[i]表示i是否为n的因数)
时间复杂度O(n)