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

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