Free Pascal语言编程1:在下面式子中的二个( )内填入一个合适的相同的数字,( )*6528=3( )*8256.2:有一个三位数,它的各位数字之和的11倍等于它本身,求这个数.3:在自然书中,如果一个三位
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 02:01:16
Free Pascal语言编程1:在下面式子中的二个( )内填入一个合适的相同的数字,( )*6528=3( )*8256.2:有一个三位数,它的各位数字之和的11倍等于它本身,求这个数.3:在自然书中,如果一个三位
Free Pascal语言编程
1:在下面式子中的二个( )内填入一个合适的相同的数字,( )*6528=3( )*8256.
2:有一个三位数,它的各位数字之和的11倍等于它本身,求这个数.
3:在自然书中,如果一个三位数等于自身个位数字的立方和,如153=5的三次方+1的三次方+3的三次方,则这个数称为“水仙花数”,求所有的水仙花数.
Free Pascal语言编程1:在下面式子中的二个( )内填入一个合适的相同的数字,( )*6528=3( )*8256.2:有一个三位数,它的各位数字之和的11倍等于它本身,求这个数.3:在自然书中,如果一个三位
1、题目没错吧 下面是程序,不过不可能符合的啊
var i:longint;
begin
for i:=0 to 9 do
if i*6528=(30+i)*8256 then writeln(i);
end.
2、
var i:longint;
begin
for i:=100 to 999 do
if 11*(i div 100+i div 10 mod 10+i mod 100 mod 10)=i then writeln(i);
end.
3、
var i,a,b,c:longint;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 100 mod 10;
if (a*a*a+b*b*b+c*c*c)=i then writeln(i);
end;
end.