Question

正整数n的质因数分解(2

Answer 1

for i:=2 to trunc(sqrt(n)) do

while n<>0 do begin

a[i]:=n mod i;

n:=n div i;

end;