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

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/08 16:48:10

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

QBSASIC语言:
LET n=1000
LET sum=0
WHILE n>0
IF n MOD 3 =0 THEN sum=sum+n
n=n-1
END
PRINT SUM