水仙花数。

引子：

    英语（narcissism）译成汉语是水仙花，来自于希腊神话，美少年纳西斯在水中看到自己的倒影，便爱上了自己，憔悴而死变成了一朵花，后人称为水仙。

    我们算法中的水仙花数也叫自幂数，名字就是由此而来。

    一个三位数，如果进行数位分离，将的百位自承三次，十位自乘三次，个位自乘三次，然后相加，如果等于它本身，那这个三位数就叫做水仙花数。

    例：153的百位是1，十位为5，个位则是3，1*1*1+5*5*5+3*3*3=153，所以153是一个水仙花数，这样的数三位数里一共有四个。

 

题目：

    输入一个三位数，判断它是不是水仙花数。

 

代码：

program shen5;

VAR
  X,A,B,C:INTEGER;

BEGIN

  READLN(X);
  A := X DIV 100;
  B := X MOD 100 DIV 10;
  C := X MOD 10;
  IF (X = A*A*A+B*B*B+C*C*C) THEN
    WRITELN('YES')
  ELSE
    WRITELN('NO')
END.

 

加强训练：使用循环判断并输出所有三位数中的水仙花数！

program shen6;

VAR
  X,A,B,C:INTEGER;

BEGIN
  for x := 100 to 999 do
  begin
    A := X DIV 100;
    B := X MOD 100 DIV 10;
    C := X MOD 10;
    IF (X = A*A*A+B*B*B+C*C*C) THEN
      WRITELN(x,' YES ')
  end;
END.