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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/25 21:58:43
用WHILE语句写出求1000以内所有能被3整除的正整数的和的程序用QBSASIC语言

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

用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