基本内容

美国有一位数字家名叫阿尔伯特·威兰斯基，他姐夫史密斯非常喜欢研究数学，所以两人经常在一起研讨各种数学问题。有时，两人碰不到一起，就习惯性地用电话交流。

一天，两人刚结束电话交谈，史密斯突然灵感来临，对威兰斯基的电话号码“4937775”产生了兴趣，总觉得这是个特别的数。可它的特殊之处究竟在哪儿呢？史密斯开始思索考证起来，他先把4937775分解质因数：4937775=3×5×5×65837，然后再把4937775所有质因数各位上的数字相加得：3+5+5+6+5+8+3+7=42，接着他又把4937775各位上的数字相加得：4+9+3+7+7+7+5=42

秘密终于找到了，原来这两个和相等。这真有意思，难道是巧合么？有没有其他的数也有此特点呢？史密斯不能解答这个问题。不过，他的这一发现引起了许多数学家的浓厚兴趣。数学家们带着这个疑问，纷纷对这一现象进行了研究。

结果发现，有许多数具有这样独特的性质，其中最小的数是4。大家不妨检查一下，4=2×2，2+2=4。类似的有，22=2×11,2+2=2+1+1；27=3×3×3，2+7=3+3+3。随着研究的不断深入，他们发现，在0至10000之间，共有376个这样的数；并且估计在0至100000之间有3300个这样的数。因为这些有趣数的发现，追本溯源是史密斯的功劳，所以数学家们把这样的数叫做“史密斯数”。

pascal解法：

var n,n1,n2,n3,i,a,b,s,s1,t:longint;

begin

write('n=');readln(n);

n3:=n;t:=0;

for n:=1 to n3 do begin

n1:=n;i:=2;s:=0;

while n1>=i do begin

while n1 mod i=0 do begin

b:=i;

while b>0 do begin

s:=s+b mod 10;

b:=b div 10;

end; {求质因数各位数字的和s}