P1008

题目描述


将1，2，…，9共9个数分成三组，分别组成三个三位数，且使这三个三位数构成1：2：3的比例，试求出所有满足条件的三个三位数。


输入输出格式


输入格式：
木有输入


输出格式：
若干行，每行3个数字。按照每行第一个数字升序排列。


输入输出样例


输入样例#1：
输出样例#1：
192 384 576
* * *
...
* * *
（输出被和谐了）

var
 a:array[0..9] of longint;
 s:string;
 i,k,ans,j,e,h:longint;
begin
 for i:=192 to 327 do//327是我推出来的，由999/3=333，再往下计算
  begin
   k:=i*1000000+i*2000+i*3;//使他们组合成为一个亿位数，科科
   str(k,s);
   for j:=1 to 9 do
   begin
    val(s[j],e);
    inc(a[e]);
  end;
  if (a[1]=1)and (a[2]=1)and(a[3]=1)and (a[4]=1)and
       (a[5]=1)and (a[6]=1)and(a[7]=1)and (a[8]=1)and
       (a[9]=1) then begin                              //说实话，这里有点笨，但是为了数字不相同，我是蛮拼的
                      write(i,' ',i*2,' ',i*3,' ');
                      writeln;
                     end;
  end;
end.