信息学奥林匹克竞赛-三连击

三连击

题目描述

将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.