【程序说明】 计算下列算式的值。a,Ai为正整数,从键盘输入。其小∑Ai=1+2…+ Ai,Ai!=1 *2*3*Ai(i=1,2… a)。 【程序】 SET TAIK OFF CLEAR INPUT“M=”TO M STORE 0 TO S1,S2 FOR I=1 TO M (8) DO SUB1 DO SUB2 ENDFOR ? ” 所求算式的值为:“+ALLTRIM(STR(S1/S2,15,3)) SET TALK ON PROCEDURE SUB1 (9) FOR R=1 TO A K=K+R ENDFOR (10) RETURN PROCEDURE SUB2 (11) FOR P=1 TO A T=T*P ENDFOR (12) RETURN (8)