如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”, 如 ,设计一个程序,
如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,如,设计一个程序,找出所有的玫瑰花数.要用BASIC语言阿,数学必修三教的。...
如果一个四位数等于它的各数位上的数字的4次方的和,则称这个四位数为“玫瑰花数”,
如 ,设计一个程序,找出所有的玫瑰花数. 要用BASIC语言阿,数学必修三教的。 展开
如 ,设计一个程序,找出所有的玫瑰花数. 要用BASIC语言阿,数学必修三教的。 展开
6个回答
展开全部
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);
}
}
}
}
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次即可。
a=1-9,b,c,d=0-9,循环900次即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
a^4+b^4+c^4+d^4=1000a+100b+10c+d
a=1-9,b,c,d=0-9,循环900次即可。
a=1-9,b,c,d=0-9,循环900次即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询