三连击
题目描述
将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成1:2:3的比例,试求出所有满足条件的三个三位数。输入输出格式
输入格式:木有输入
输出格式:若干行,每行3个数字。按照每行第一个数字升序排列。
输出样例
192 384 576
* * *
...
* * *
(输出被和谐了)
* * *
...
* * *
(输出被和谐了)
var
a1,a2,a3,n,t,i:longint;
flag:boolean;
d:array[1..9] of longint;
begin
for a1:=111 to 999 do
begin
for a2:=2*a1 to 999 do
begin
for a3:=3*a1 to 999 do
begin
if (a1*2=a2) and (a1*3=a3) then
begin
for i:=1 to 9 do d[i]:=0;
t:=a1;
while t>0 do
begin
inc(d[t mod 10]);
t:=t div 10;
end;
t:=a2;
while t>0 do
begin
inc(d[t mod 10]);
t:=t div 10;
end;
t:=a3;
while t>0 do
begin
inc(d[t mod 10]);
t:=t div 10;
end;
flag:=true;
for i:=1 to 9 do
begin
if d[i]<>1 then flag:=false;
end;
if flag=true then writeln(a1,' ',a2,' ',a3);
end;
end;
end;
end;
end.