talk offn=0s=0for i=1 to 1000 if i%3=0 and i%7=0 n=n+1 s=s+i endifendfor?"1-1000能同时被3和7整除的数有"+allt(str(n))+"个"?"它们的和是:"+allt(str(s))set talk talk offfor a=1 to 9for b=0 to 9for c=0 to 9if 100*a+10*b+c=a*a*a+b*b*b+c*c*c ? 100*a+10*b+cendifnext cnext bnext areturnset talk talk offinput "请输入年份:"to n msg="年不是闰年" if mod(n,4)=0 and mod(n,100)<>0 or mod(n,400)=0 msg="年是闰年" endif ?n,msgset talk on