不重复的,在c论坛看到过这题

昨天晚上后来不知道怎么回事,就是上不了这网站.
求完数
function qws
clear;
clc;
n=1;
for i=1:100
if i==sumyz(i)
x(n)=i;n=n+1;
end
end
x

function y=sumyz(x)
y=0;
for i=1:fix(0.5*x)
if mod(x,i)==0
y=y+i;
end
end

执行:
qws

结果:
x =

6 28