枚举法 4 —— 《实用算法基础教程》

巧妙填数

将1至9这九个数字填入九个。每一行的三个数字组成一个三位数。如果要使第二行的三位数是第一行的两倍，第三行的三位数是第一行的三倍，应该怎样填数。

题解

经分析，第一行的数不会超过400，因此这样的枚举只需要不到400次就能够完成。

算法一

var i, j, k, s : integer;

function sum(s: integer): integer;
begin
sum := s div 100 + s div 10 mod 10 + s mod 10
end;

function mul(s:integer) : longint;
begin
mul := (s div 100) * (s div 10 mod 10) * (s mod 10)
end;

begin
for i:=1 to 3 do
for j:=1 to 9 do
if j<>i then for k:=1 to 9 do
if(k <> i) and (k <> j) then

begin
s := i*100 + j * 10 + k
if 3*s < 1000 then
if(sum(s) + sum(2*s) + sum(3*s)) and
(mul(s) * mul(2*s) * sum(3*s) = 362880) then

begin
writeln(s);
writeln(2*s);
writeln(3*s);
writeln;
end;

end;

<