很难用数学方法做.共有721个这样的数,总和1810606VB不严密代码：he = 0for i= 1000 to 4000iysh = 1for k = 2 to iif i mod k = 0 theniysh = iysh + kend ifnextif iysh mod 21 = 0 thenhe = he + iend ifnextprint...