4~9999的史密斯数,咋写?跪求!!!

没人吗?

史密斯数是什么。。。。。。。。�

program p123(input,output);
var j,j1:longint;
 i,p,p1,s,s1:integer;
 a:array [1..200] of integer;
procedure k1(j:longint);
var i:integer;
begin
 i:=2;
 s:=0;
 while j>=i div 2 do begin
 if j mod i = 0 then begin
 s:=s+1;a[s]:=i;
 j:=j div i end
 else i:=i+1;
 end;
end;

begin
 s1:=0;
 for j:=4 to 9999 do begin
 j1:=j;
 k1(j);p:=0;p1:=0;
 while j1<>0 do begin
 p:=p+(j1 mod 10);
 j1:=j1 div 10 end;
 for i:=1 to s do begin
 p1:=p1+a[i];
 a[i]:=0 end;
 if p=p1 then begin
 write(j:5);s1:=s1+1 end;
 end;
end.

感觉不怎么难,就是分解因式掌握好就OK了.

上面的那S1可以去掉的,我一时大意了.

好像不对......那里错了的样子.

全错了,我也要问下怎么写啊

#include "stdio.h"
#include "math.h"
int list[50]={2,3,0};
int judge(int x)/*判断是不是素数*/
{
int i=0;
while(list[i]*list[i]<=x)
{
if(x%list[i]==0)
return 0;
i++;
}
return 1;
}
int frist()/*初始化素数表*/
{
int i,k,j=1;
for(i=5;i<=2100&&j<50;i++)
{
for(k=0;k<=j&&list[k]<=sqrt(i);k++)
if(i%list[k]==0) break;
if(k>j||list[k]>sqrt(i)) 
{
j++;
list[j]=i;
}
else continue;
}
return 1;
}
int chg(int x) /*把一个数的各位数字进行相加*/
{
int sum=0;
while(x>10)
{
sum+=(x%10);
x/=10;
}
sum+=x;
return sum;
}
int zys(int x) /*求质因数的和*/
{
int i,sum=0,y=x;
for(i=2;i<=x;i++)
if(judge(i)&&x%i==0)
{
if(i==y) return 1;
sum+=chg(i);
x/=i;
i=1;
}
return sum;
}


int main()
{
int i;
frist();
for(i=4;i<=9999;i++)
if(chg(i)==zys(i))
printf("%d ",i);
return 0;
}


/*有什么问题可以 Q 我 172610236*/