作业帮abc+cba=1333,其中a、b、c均为一位数,编写一个程序求出a、b、c分别代表什么数字.还需要编写一个程序？麻烦了？很重要的
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/14 03:00:20
abc+cba=1333,其中a、b、c均为一位数,编写一个程序求出a、b、c分别代表什么数字.还需要编写一个程序？麻烦了？很重要的
abc+cba=1333,其中a、b、c均为一位数,编写一个程序求出a、b、c分别代表什么数字.
还需要编写一个程序？麻烦了？很重要的
abc+cba=1333,其中a、b、c均为一位数,编写一个程序求出a、b、c分别代表什么数字.还需要编写一个程序？麻烦了？很重要的
a*100+b*10+c+c*100+b*10+a=1333
a*(100+1)+c*(100+1)+20*b=1333
(a+c)*101+20b=1333
(a+c)*101+101b - 81b=1333
(a+b+c)*101=1333+81b
(a+b+c)*101=101*14-81+81b
(a+b+c)/14=14*(1+b)
但是a+c=3或是13 及a+b+c要能整除14,a+c=3不成立
a+c=13,所以 b =1
a+c = 13的组合有7+6,8+5及9+4
所以会是914+419=1333
815+518=1333
716+617=1333
这个不会了
Option Explicit
Private Sub Command1_Click()
'abc + cba = 1333
Dim a As Long, b As Long, c As Long
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
全部展开
Option Explicit
Private Sub Command1_Click()
'abc + cba = 1333
Dim a As Long, b As Long, c As Long
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
If a <> b And a <> c And b <> c Then
If CLng(a & b & c) + CLng(c & b & a) = 1333 Then
Print a; b; c, a & b & c & " + " & c & b & a & " = " & CLng(a & b & c) + CLng(c & b & a)
End If
End If
Next
Next
Next
End Sub
收起