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/5OTHERWISE P=P+KEND CASEENDFORK,T,S,PSET 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
OTHERWISE
P=P+K
END CASE
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
S=S+K
OTHERWISE
P=P+K
ENDCASE
ENDFOR
?K,T,S,P
SET TALK OFF