视频1 视频21 视频41 视频61 视频文章1 视频文章21 视频文章41 视频文章61 推荐1 推荐3 推荐5 推荐7 推荐9 推荐11 推荐13 推荐15 推荐17 推荐19 推荐21 推荐23 推荐25 推荐27 推荐29 推荐31 推荐33 推荐35 推荐37 推荐39 推荐41 推荐43 推荐45 推荐47 推荐49 关键词1 关键词101 关键词201 关键词301 关键词401 关键词501 关键词601 关键词701 关键词801 关键词901 关键词1001 关键词1101 关键词1201 关键词1301 关键词1401 关键词1501 关键词1601 关键词1701 关键词1801 关键词1901 视频扩展1 视频扩展6 视频扩展11 视频扩展16 文章1 文章201 文章401 文章601 文章801 文章1001 资讯1 资讯501 资讯1001 资讯1501 标签1 标签501 标签1001 关键词1 关键词501 关键词1001 关键词1501 专题2001
编程输出1000以内的所有水仙花数,所谓水仙花数是指一个3位数,其各位数字的立方和等于其本身
2024-11-29 08:02:50 责编:小OO
文档


水仙花数是指一个3位数,其各位数字的立方和等于其本身。三位的水仙花数共有四个:153,370,371,407。我们可以用程序来找到它们,例如用Pascal语言实现如下:

program shuixianhuashu;

var a, b, c: integer;

begin

for a := 1 to 9 do

for b := 0 to 9 do

for c := 0 to 9 do

if a*a*a + b*b*b + c*c*c = 100*a + 10*b + c then

writeln(100*a + 10*b + c);

end.

或使用另一种方法:

program sxh;

var a, b, c, d: integer;

begin

for a := 100 to 999 do

begin

b := a mod 10;

c := a mod 100 div 10;

d := a div 100;

if b*b*b + c*c*c + d*d*d = a then

writeln(a);

end;

end.

也可以使用C语言实现如下:

#include <stdio.h>

int main(void)

{

int a, b, c;

for(a = 1; a <= 9; a++)

for(b = 0; b <= 9; b++)

for(c = 0; c <= 9; c++)

if(100*a + 10*b + c == a*a*a + b*b*b + c*c*c)

printf("%d%d%d\n", a, b, c);

return 0;

}

这些程序可以找出所有三位的水仙花数,程序逻辑简洁明了,适合初学者理解和学习。

下载本文
显示全文
专题