寻找中国的最优秀的网商领袖精英  
当今世界正经历着全球经济一体化的大潮，中国本土企业也因此面临着前所未有的机遇与挑战。
在这场洗礼中，哪些互联网平台有能力成为世界级的电子商务平台？网商精英要怎样做，才能最终成长为世界级网商精英领袖？
淘宝商盟平台震撼登场，携手淘宝30万商家联盟购物商城。
平台刚刚启动，互联网的网商精英请咨询qq: 908889846 
占领市场第一先机，合力打造网商系统！
淘宝商盟官网   www.taobaosm.com
 http://blog.sina.com.cn/tbsm8
淘宝商盟奖励制度

CLS
FOR I=1000 TO 9999：T=I  
  DO
FOR J=2 TO SQR(T)
   IF T MOD J=0 THEN 1
NEXT J
T=T\10
  LOOP WHILE T<>0
  PRINT I
1 NEXT I
END

CLS
  FOR A = 1 TO 9
  FOR B = 0 TO 9
  FOR C = 0 TO 9
  FOR D = 0 TO 9
  X = A * 1000 + B * 100 + C * 10 + D
  Y = B * 100 + C * 10 + D
  Z = C * 10 + D
  FOR I = 2 TO SQR(X)
  IF X / I = X \ I THEN 1
  NEXT I
  FOR I = 2 TO SQR(Y)
  IF Y / I = Y \ I THEN 1
  NEXT I
  FOR I = 2 TO SQR(Z)
  IF Z / I = Z \ I THEN 1
  NEXT I
  FOR I = 2 TO SQR(D)
  IF D / I = D \ I THEN 1
  NEXT I
  PRINT X;
1 NEXT D
  NEXT C
  NEXT B
  NEXT A
  END


[fly]给我50分[/fly][em11][em11][em11]

[fly][em27][em46][em27][em46]林子建~……[em27][em46][em27][em46][/fly]

cls
s=0
for i = 1000 to 9999
 n=1
 m=0
 a=i mod 1000
 gosub 1
 if n = 0 then m=1
 b=i mod 100
 gosub 2
 if n = 0 then m=1
 c= i mod 10
 gosub 3
 if n = 0 then m=1
 if m = 0 then s=s+1 
next i
end
 1
 if a mod 2 = 0 then n=0:return
 for i = 3 to (a+1/2) step 2
  if a mod i = 0 then n=0:return
 next i
 return

 2
 if b mod 2 = 0 then n=0:return
 for i = 3 to (b+1/2) step 2
  if b  mod i = 0 then n=0:return
 next i
 return

 3
 if c mod 2 = 0 then n=0:return
 for i = 3 to (b+1/2) step 2
  if c  mod i = 0 then n=0:return
 next i
 return

给点分吧
给点分吧
给点分吧
给点分吧