asp编写一个数如果恰好等于它的因子之和,这个数就称为"完数".例如6=1+2+3.编程

求代码!!!!asp!!!!
2024-11-08 03:26:27
有2个网友回答
网友(1):

是求一定范围内的完数吗?
例如求1-1000的完数等。
代码如下:
<%
'求一个数的因子之和
function getXZSum(numb)
dim sum
sum = 0
for i = 1 to numb-1
if numb mod i = 0 then
sum = sum + i
end if
next

getXZSum = sum
end function

for a = 1 to 1000
if int(a) = int(getXZSum(a)) then
response.Write(a&"、")
end if

next

%>

网友(2):

这是个数学问题,不是编程问题。