作业帮Free Pascal语言编程
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/06 10:02:19
Free Pascal语言编程
1：在下面式子中的二个（ ）内填入一个合适的相同的数字,（ ）*6528=3（ ）*8256.
2：有一个三位数,它的各位数字之和的11倍等于它本身,求这个数.
3：在自然书中,如果一个三位数等于自身个位数字的立方和,如153=5的三次方+1的三次方+3的三次方,则这个数称为“水仙花数”,求所有的水仙花数.
1：在下面式子中的二个（ ）内填入一个合适的相同的数字,（ ）*6528=3（ ）*8256.
2：有一个三位数,它的各位数字之和的11倍等于它本身,求这个数.
3：在自然书中,如果一个三位数等于自身个位数字的立方和,如153=5的三次方+1的三次方+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.
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.