如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,如 ,设计一个程序,如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/30 02:44:20
如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,如 ,设计一个程序,如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数
如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,如 ,设计一个程序,
如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,
如 ,设计一个程序,找出所有的玫瑰花数.要用BASIC语言阿,数学必修三教的.
如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,如 ,设计一个程序,如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数
好难啊!你会吗?我也想知道答案
i=1000
DO
A=i\1000
B=(i-1000*A)\100
C=(i-1000*A-100*B)\10
D=1MOD10
IF i=A^4+B^4+C^4+D^4
THEN
PRINT i
END IF
i=i+1
LOOP UNTIL i>9999
END
a^4+b^4+c^4+d^4=1000a+100b+10c+d
a=1-9,b,c,d=0-9，循环900次即可。
C语言版的。。。BASIC很久没弄了。。不记得怎么搞了。。你看一下思路，自己编吧~~挺简单的
int i,j,k,l,m,n;
for(i=1;i<10;i++)
{
for(j=0;j<10;j++)
{
for(k=0;k<10;k++)
...
全部展开
C语言版的。。。BASIC很久没弄了。。不记得怎么搞了。。你看一下思路，自己编吧~~挺简单的
int i,j,k,l,m,n;
for(i=1;i<10;i++)
{
for(j=0;j<10;j++)
{
for(k=0;k<10;k++)
{
for(l=0;l<10;l++)
{
m=i+j+k+l;
n=i*1000+j*100+k*10+l;
if(m==n)
printf("%d",m);
}
}
}
}
收起
a^4+b^4+c^4+d^4=1000a+100b+10c+d
a=1-9,b,c,d=0-9，循环900次即可。
Private Sub Command1_Click()
Dim a, b, c, d, m As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
m = a * 1000 + b * 100 + c * 10 + d
...
全部展开
Private Sub Command1_Click()
Dim a, b, c, d, m As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
m = a * 1000 + b * 100 + c * 10 + d
If m = a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 Then
Print m
End If
Next d
Next c
Next b
Next a
End Sub
收起