Question

Free Pascal语言编程

1：在下面式子中的二个（ ）内填入一个合适的相同的数字，（ ）*6528=3（ ）*8256.
2：有一个三位数，它的各位数字之和的11倍等于它本身，求这个数。
3：在自然书中，如果一个三位数等于自身个位数字的立方和，如153=5的三次方+1的三次方+3的三次方，则这个数称为“水仙花数”，求所有的水仙花数。

Answer 1

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.

Answer 2

枚举即可

Answer 3

都是一层的循环，枚举查找答案

Answer 4

枚举