作业帮PASCAL语言程序基本概念1、找出100到999之间的整数中所有等于它每位数字立方和的数 2、求所有满足条件的四位数：（1）这四位数是11的倍数；（2）a,b,c,d均是小于10的互不相等的自然数；（3
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 20:43:36
PASCAL语言程序基本概念1、找出100到999之间的整数中所有等于它每位数字立方和的数 2、求所有满足条件的四位数：（1）这四位数是11的倍数；（2）a,b,c,d均是小于10的互不相等的自然数；（3
PASCAL语言程序基本概念
1、找出100到999之间的整数中所有等于它每位数字立方和的数 2、求所有满足条件的四位数：（1）这四位数是11的倍数；（2）a,b,c,d均是小于10的互不相等的自然数；（3）b+c=a；（4）bc是完全的平方数fggf 3、以不同的字母代表0——9之间的数字,现有如下等式成立：a+bc+def=ghif,编程求出满足上述条件等式的个数并将所有等式打印输出.
PASCAL语言程序基本概念1、找出100到999之间的整数中所有等于它每位数字立方和的数 2、求所有满足条件的四位数：（1）这四位数是11的倍数；（2）a,b,c,d均是小于10的互不相等的自然数；（3
program ques_1; var i,j,k:integer; begin for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if i*i*i+j*j*j+k*k*k=100*i+10*j+k then writeln(i,j,k); end. program ques_2 var i,a,b,c,d,n:integer; begin for i:=1000 to 9999 do if i mod 11=0 then begin a:=i div 1000; b:=i mod 10; c:=i div 100 mod 10; d:=i mod 100 div 10; if (ab)and(ac)and(ad)and(bc)and(bd)and(cd) then if b+c=a then if sqrt(b*c)=trunc(sqrt(b*c)) then writeln(a,b,c,d); end; end. {首先要推出G=1,D=9,H=0,可以方便一些} program ques_3;
麻烦采纳,谢谢!