爱问知识人 爱问教育 医院库

请用PASCAL编程:如何判定一个三位数为水仙花数。

首页

请用PASCAL编程:如何判定一个三位数为水仙花数。


        

提交回答
好评回答
  • 2005-04-21 14:31:50
    program lianxi06(input,output);
       Var  n,a,b,c:integer;;
       Begin
        Write('n=');readln(n);
            a:=n  div  100;
           b:=(n  div  10) -a*10 mod  10;
           c:=n -a*100-b*10;
            if  n=c*c*c+b*b*b+a*a*a then wirteln(‘yes’)
               else  writeln(‘no’);
              End.
    

    s***

    2005-04-21 14:31:50

类似问题

换一换

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):