SunSky...

摘要： {首先，说明一个问题，一个数的大于它开方的质因数最多一个；等于的可以两个，即它开方得到的数是质数的话，即为该数；问题可以这样描述，当一个数筛去小于等于自身开方的数之后就之多只有一个质因数了，详情看程序不妨反证一下，若有第二个，则仅仅这两个数乘起来就比x大了，所以没有第二个}program sky;{筛选法求素数，分解质因数}var i,j,l,tot,x:longint; xx:array[1..100000,1..2] of longint; a:array[1..500000]of longint; v:array[1..500000] of boolean;procedure init; 阅读全文