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;