全部答案

2018-01-09 17:54:18

•   set talk off
  ? "能被7整除的数: "
  store 0 to s1,s2,s3,s4,s5,k
  for i=1 to 100
   s1=s1 i
   s2=s2 i*i
   
   if mod(i,2)=0
   s4=s4 i
   else
   s3=s3 i
   endif
   
   if mod(i,7)=0
   ?? str(i,3) 
   endif
  endf
  for i=2 to 100
   k=sqrt(i)
   
   f=。
    t。
   for j=2 to k
   if mod(i,j)=0
   f=。f。
    
   exit
   endif
   endf
   
   if f
   s5=s5 i
   endif
  endf
  ? "从1到100的数的和:" str(s1,5)
  ? "从1到100的整数平方和:" str(s2,8)
  ? "从1到100的的奇数和:" str(s3,5)
  ? "从1到100的的偶数和:" str(s4,5)
  ? "从1到100的质数和:" str(s5,5)
  return。

  全部
  

  双***

  2018-01-09 17:54:18

  43 2 评论

  分享
  提交评论