在1000至2000范围内寻找一个有趣的数字，它具有最多的因子，如果因子数相同，则它是最小的。

其实就是找素因子,不过Pascal的语法的忘的差不多了，自己调整一下
2000开根只到44,所以素因子只到44以下，因子的数目＝2^素因子数

int i,j,now=0,nownum=0,num;
int a[15]={2,3,5,7,11,13,15,17,19,23,29,31,37,41,43}
for (i=1000 to 2000)
{
num=0;
for (j=1 to 15)
if (i mod a[i]=0) num=num+1;(统计素因子个数)
if (num>nownum)
{
nownum=num;
now=i;
}
}