信息學奧林匹克競賽-三連擊

三連擊

題目描述

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