用WHILE语句写出求1000以内所有能被3整除的正整数的和的程序用QBSASIC语言

发布时间：2021-02-22 15:05:36

用WHILE语句写出求1000以内所有能被3整除的正整数的和的程序用QBSASIC语言

网友回答

QBSASIC语言：
LET n=1000
LET sum=0
WHILE n>0IF n MOD 3 =0 THEN sum=sum+n
n=n-1ENDPRINT SUM
以上问题属网友观点，不代表本站立场，仅供参考！