吉林长春刘嘉俊:用QBASIC语言编程:

来源:百度文库 编辑:高校问答 时间:2024/05/11 04:04:47
从键盘输入一个正整数N(N<=3000),按从小到大的顺序输出0到N之间7和7的倍数,以及包含数字7的所有数。

do
input n
loop until n<=3000
for i=0 to n
if i mod 7=0 or i mod 10=7 or i\10 mod 10=7 or i\100 mod 10=7 then print i,
next i
end