问答题
程序改错(5分)
下列程序的功能是找出100~999以内同时满足以下条件的数:个位数字与十位数字之和与10的模等于百位数;该数是素数(仅能被1和本身整除的数称为"素数’’)。例如,101、21l、239等。要求:
(1)将下列程序输入到项目中的程序文件PCODE中,并对其中的2条错误语句进行修改;
(2)在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
CLEAR
FOR i=1 To 999
yn=.T.
FOR j=3 TO i-1
IF MOD(j,i)=0
yn=.F.
EXIT
ENDIF
ENDFOR
IF yn
s=STR(i,3)
s1=SUBS(s,3,1)
s2=SUBS(s,2,1)
s3=SUBS(s,1,1)
IF MOD(VAL(s1)+VAL(s2))=VAL(s3)
?i
ENDIF
ENDIF
ENDFOR
【正确答案】 If Mod(j,i)=0 改为:Mod(i,j)
If Mod(Val(s1)+Val(s2))=Val(s3) 改为:Val(s2),10