FAQ
>
金融建模
>
建模问题
>
其他
Q:提取某个整数的因数
复制链接
A:例如 20 ,可以提取因数 2 4 5 10)
v:=20;
result:=array();
for i := 2 to integer(v/2) do
begin
DivMod(v,i,re,r);
if r=0 then
begin
result:=result union array(i);
end
end
return result;