SET TALK OFF
CLEAR
STORE 0 TO S,T,P
FOR K=1 TO 10
DO CASE
CASE INT(K/2)=K/2
T=T+K
CASE INT(K/5)=K/5
S=S+K
OTHERWISE
P=P+K
ENDCASE
ENDFOR
?K,T,S,P
SET TALK OFF
SET TALK OFF CLEAR STORE 0 TO S,T,P FOR K=1 TO 10 DO CASE CASE INT(K/2)=K/2 T=T+K CASE INT(K/5)=K/5
SET TALK OFF CLEAR STORE 0 TO S,T,P FOR K=1 TO 10 DO CASE CASE INT(K/2)=K/2 T=T+K CASE INT(K/5)=K/5
OTHERWISE
P=P+K
END CASE
ENDFOR
K,T,S,P
SET TALK OFF
OTHERWISE
P=P+K
END CASE
ENDFOR
K,T,S,P
SET TALK OFF
数学人气：445 ℃时间：2020-04-03 06:59:38
优质解答
我来回答
类似推荐
- SET TALK OFF CLEAR STORE 0 TO S,T,P FOR K=1 TO 10 DO ...
- vfp执行如下程序后,显示A的值 set talk off clear store 0 to a,b do while a>=b a=a+b b=b-1 enddo
- SET TALK OFF CLEAR FOR I=1 TO 20 FOR J=1 TO 33 FOR K=(100-I*5-J*3)*3 IF I=J=K=100 I,J,K ENDIF ENDFO
- VFP：set talk off clear s=0 for m=3 to 7 n=2 do while n
- clear set talk off x=10 y=-3 for n=29+x to x ;ste p y endfor n return
猜你喜欢
- 1一条河水的平均深度为2.3m,一个身高1.5m但不会游泳的人下水后肯定会淹死吗?为什么?
- 2光明中学九年级甲、乙两班在为“希望工程”捐款活动中,两班捐款总数相同,均多于300元小于400元...
- 3以《Welcome to Shanghai》为题目用英文写一篇文章(至少80个单词）
- 4全球气候变暖导致一些冰川融化并消失．在冰川消失12年后，一种低等植物苔藓就开始在岩石上生长．每一个苔藓都会长成近似圆形，苔藓的直径和其生长年限，近似地满足如下的关系式：d=
- 5现在对某商品降价10%要使商品价格不变 销售量要比原价增加百分之几
- 6（本领）一词前面加一个字的动词,该如何加?
- 7解不等式组:{3x2-4x-4≥0,x2-4x-12＜0.｝求者共同的解集
- 8She doean't think she could do that变反意疑问句
- 9小华双休日想帮妈妈做下面的事情:用洗衣机洗衣服要用20分钟；扫地要用6分钟；擦家具要用10分钟；晾衣服要用5分钟.她经过合理安排，做完这些事至少要花（ ）分钟. A.21 B.25 C.26
- 10甲,乙两队合修一案122.3千米的公路,两队共同修了7天,修下的由乙队按原来每天6.4千米的速度完成,又修了5天,甲队每天修多少千?