用pascal编写程序 如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.用pascal编写程序如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 20:29:42
用pascal编写程序 如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.用pascal编写程序如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰

用pascal编写程序 如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.用pascal编写程序如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰
用pascal编写程序 如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.
用pascal编写程序
如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.

用pascal编写程序 如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.用pascal编写程序如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰
程序:
var
  i,k,x:longint;
begin
  for i:=1000 to 9999 do//枚举所有的四位数,因为玫瑰花数一定是四位数
    begin
      k:=0;
      x:=i;
      while x>0 do
        begin
          k:=k+sqr(sqr(x mod 10));//这里可能太快了.这样子,设n表示目前x的各位,则n的四次方为n*n*n*n,而sqr为求平方数,所以sqr(sqr(n))=sqr(n*n)=n*n*n*m.将结果累加到k上比较
          x:=x div 10;//截去当前的个位

        end;//以上为求该数每一位数字4次方之和,扫描就是从个位到千位的顺序
      if k=i then writeln(i);//相等就输出
    end;
end.

输出应该是这样,不懂再追问

用pascal编写程序 如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数.用pascal编写程序如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰 用 Pascal 编写一个程序将十进制整数n转换为二进制数.用 Pascal 编写加说明 PASCAL程序 全1数字全1 数字请用PASCAL编写,输入一个奇数P(P 用PASCAL语言编写一个求1+2+3+...+N的程序 用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数;68.6634有4位小数2.编写一函数,求出N!的末尾含有多少个0 用c编写程序:输入一个小于100000的数,并判断他是几位数 输入一个3位数,然后显示三位的数字相加的式子,再判断这个数字之和是否大于15,如果是就显示“>15”,否则显示“15用pascal编写 用pascal编写程序 输入十个整数,统计大于0的数的个数.用pascal编写程序输入十个整数,统计大于0的数的个数. pascal程序怎样随机产生一个三位数?并解释为什么要这样编写? pascal金字塔编写一个程序,输入两个整数N和K(N,K 用2维数组函数 编写一个C语言程序 输出下面的格式 要求 最大9位数 如果是四位数 则为输入1234 和43219 18 27 36 456 47 38 29 1 用pascal输出语句编写下列图形程序 1 121 12321 12343211121123211234321 用PASCAL语言编写程序,输入一个实数,输出改实数和它的平方,平方根三次方,三次方根答得好我会加分的 输入一个3位数,然后显示三位的数字相加的式子.输入一个3位数,然后显示三位的数字相加的式子,再判断这个数字之和是否大于15,如果是就显示“>15”,否则显示“15用pascal编写 Pascal编程 那些n位数【试题描述】 一个n位数,只由1,2,3,4...p这几个数字组成. 请编写程序输出这些n位数,先小后大,每行一个.【输入描述】 两个整数n,p(n<9,p<=9,且p^n 用C语言编写程序,随机输出一个使用0~9是个数字组成无重复的七位数 软件是指用程序设计语言(如PASCAL ,C,VISUAL BASIC 等)编写的程序,软件开发实际上就是编写程序代码这句话对吗? Miller-Rabbin素数测试法求一个用Miller-Rabbin算法判断是否为素数的程序,注意要用PascalPascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!最好有说明