数据n可以用longint储存,就是普通的穷举题啦~~~
for i:=2 to trunc(sqrt(n)) do
begin
while n mod i=0 do
begin
n:=n div i;
记录或输出i；
end；
end；
因为是从小到大,不用担心重复神马的啦~~~~