var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(a,b,c);
end.
{结果:
153
370
371
407}
turbo pascal的一道题:找出100到999之间的整数中所有等于它每位数字立方和的数
turbo pascal的一道题:找出100到999之间的整数中所有等于它每位数字立方和的数
数学人气:929 ℃时间:2019-08-19 14:56:50
优质解答
我来回答
类似推荐
猜你喜欢
- 1地球与月球的直线距离多远?如果做飞机去,需要多长时间?
- 2修一条路,甲乙两工程队合修需6天完成,乙、丙两工程队合修需4天完成,甲、丙两工程队合修需8天完成,甲、
- 3分子中含有22个共价键的烷烃是什么?
- 4古诗是我们民族文化的瑰宝,我们从小就在古诗中受到启迪,家长常用什么诗句教导我们要努力学习.
- 5如图,△ABC中,∠C=90°,∠B=60°,点O在AB上,AO=x,⊙O的半径为1.问当x在什么范围内取值时,AC与⊙O相离、相切、相交?
- 6在比例尺是1/5000000的地图上,测得甲乙两地的距离是8厘米,在另一幅1:4000000的地图上,甲乙两地相距多少厘米?
- 7英语翻译
- 8She didnot come to school __the rain A because B because of
- 9《鱼我所欲也》的中心论点相关的诗句
- 10在方格里填上适当的数字 既有因数3又有因数5 ( )60 2( )5