一个四位数abcd(c^2+d^2不等于0)四位数abcd/两位数cd=(两位数ab+1)^2(c可以为0),所有符合的四位数和为?eg.4802/2=2401=49^2=(48+1)^2
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/22 01:05:20
一个四位数abcd(c^2+d^2不等于0)四位数abcd/两位数cd=(两位数ab+1)^2(c可以为0),所有符合的四位数和为?eg.4802/2=2401=49^2=(48+1)^2
一个四位数abcd(c^2+d^2不等于0)四位数abcd/两位数cd=(两位数ab+1)^2(c可以为0),所有符合的四位数和为?
eg.4802/2=2401=49^2=(48+1)^2
一个四位数abcd(c^2+d^2不等于0)四位数abcd/两位数cd=(两位数ab+1)^2(c可以为0),所有符合的四位数和为?eg.4802/2=2401=49^2=(48+1)^2
18712
这个四位数可设为,100x+y(9
100x/y+1=(x+1)^2
100x/y=(x+1)^2-1
100x/y=(x+1-1)(x+1+1)=x(x+2)
100/y=x+2
y取100的约数:01,02,04,05,……
符合条件的有:01,02,04,05
故有1805 2304 4802 9801 和为18712
Private Sub Command1_Click()
Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 1 To 9
e = (a * 1000 + b * 100 + c * 10 + d)
...
全部展开
Private Sub Command1_Click()
Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 1 To 9
e = (a * 1000 + b * 100 + c * 10 + d)
If (a * 1000 + b * 100 + c * 10 + d) / (c * 10 + d) = (a * 10 + b + 1) ^ 2 Then Print e
If e = 9999 Then Print "end"
Next d
Next c
Next b
Next a
我用 vb 编了一下 结果是1805 2304 4802 9801 和为18712
收起