主题：求水仙花数------快回吧
晓风凉月
[专家分：0] 发布于 2005-10-05 13:48:00
求100-999中的水仙花数(若三位数abc=a*a*a+b*b*b+c*c*c,责称abc为水仙花数)
多谢前辈帮忙[em2]
回复列表 （共7个回复）
沙发
QQ331373582 [专家分：1500] 发布于 2005-10-05 14:31:00
var a,b,c:integer;
begin
for a:=1 to 9 do begin
for b:=0 to 9 do begin
for c:=0 to 9 do begin
if(100*a+10*b+c=a*a*a+b*b*b+c*c*c)then writeln(a,b,c);
end;
end;
end;
end.
板凳
QQ331373582 [专家分：1500] 发布于 2005-10-05 14:31:00
+++++++
3 楼
zhsas [专家分：1680] 发布于 2005-10-05 22:41:00
program zhs (input,output);
var
i,a,b,c:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if i=a*a*a+b*b*b+c*c*c
then write(i:10)
end;
writeln
end.
4 楼
udngbb [专家分：0] 发布于 2005-10-20 11:23:00
#include <stdio.h>
void main()
{
int i,l,k,sx;
for(i=1;i<10;i++)
{
for(l=0;l<10;l++)
{
for(k=0;k<10;k++)
{
if(i*100+l*10+k==(sx=i*i*i+l*l*l+k*k*k))
printf("%d,",sx);
}
}
}
}
5 楼
欧阳淼 [专家分：280] 发布于 2005-10-22 16:49:00
呵呵，楼上的似乎是用C编的，这有一个VB的：
Private Sub Form_Click()
For i = 100 To 999
If Mid(i,1,1)^3 + Mid(i,2,1)^3 + Mid(i,3,1)^3 = i Then Print i & vbCrLf
Next
End Sub
6 楼
~风刀霜剑~ [专家分：0] 发布于 2005-10-23 12:08:00
var
m,a,b,c:integer;
begin
for m:=100 to 999 do
begin
a:=m div 100;
b:=(m mod 100) div 10;
c:=c mod 10;
if a*a*a+b*b*b+c*c*c=m then weite(m:6);
end
readln
end.
7 楼
封天怒龙 [专家分：160] 发布于 2005-10-26 16:32:00
var i,j,l:integer;
begin
for i:=1 to 9 do begin
for j:=0 to 9 do begin
for l:=0 to 9 do begin
if(100*i+10*j+l=i*i*i+j*j*j+l*l*l)then writeln(i,j,l);
end;
end;
end;
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求水仙花数------快回吧