您所在位置：主题：求助:一道关于数的题目.
gulang5926
[专家分：0] 发布于 2006-11-03 13:51:00
已知一个正整数的个位数为7,将7移到该数的首位,其它数字顺序不变,则得到的新数是原数的7倍,编程找出满足上述要求的最小自然数.
我的程序是:
cls
a=7
do while f<>1
a=a+10
b$=str$(a)
l=len(b$)
n=val(right$(b$,1)+mid$(b$,2,l-2))
if n=7*a then
print a
f=1
end if
loop
end
为什么没有结果?
请高手指点!!!!!!!!!!!!
我的程序是:
cls
a=7
do while f<>1
a=a+10
b$=str$(a)
l=len(b$)
n=val(right$(b$,1)+mid$(b$,2,l-2))
if n=7*a then
print a
f=1
end if
loop
end
为什么没有结果?
请高手指点!!!!!!!!!!!!
