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;