求N-S图:计算100~999之间的所有水仙花数.所谓的水仙花是一个三位数,其各位数字的立方和等于该数本身.例

1个回答

  • program:cscs;(名字你自己编好了)

    var i,a,b,c:integer;

    Begin

    for i:=100 to 999

    begin

    a=i div 10

    b=i div 10 mod 10

    c=i div 100

    if(i=a*a*a+b*b*b+c*c*c)then write (i);

    end;

    End.

相关问题