回 帖 发 新 帖 刷新版面

主题:儿子参加一个BASIC培训,有题不会做,请教高手

1\有一个三位数,若将百位移到个位,其余两位依次向前移一位,得到的新数比原数的两倍还多1,求原数?
2\求出所有满足下列条件的三位数,它除以11所得的商等于它的各位数字的平方和.[em10]

回复列表 (共2个回复)

沙发

1,
cls
for i=100 to 999
  a=i%10
  b=i/100
  c=i/10%10
  if c*100+a*10+b=i*2+1 then
   print i
  next i
end

2,
cls
for i=100 to 999
  a=i%10
  b=i/100
  c=i/10%10
  if i/11=a*a+b*b+c*c then
   print i
  next i
end

板凳

谢谢

我来回复

您尚未登录,请登录后再回复。点此登录或注册