【题解】洛谷1618 三连击（升…

本题地址： http://www.luogu.org/problem/show?pid=1618

题目描述

将1，2，…，9共9个数分成三组，分别组成三个三位数，且使这三个三位数的比例是A:B:C，试求出所有满足条件的三个三位数，若无解，输出“No!!!”。 

//感谢黄小U饮品完善题意

输入输出格式

输入格式：

三个数，A B C。

输出格式：

若干行，每行3个数字。按照每行第一个数字升序排列。

输入输出样例

输入样例#1：

1 2 3

输出样例#1：

192 384 576
219 438 657
273 546 819
327 654 981

说明

保证A

默默打表，多重判断，因为数据就这么弱

var a,b,c,i,j,k,t:longint;

  n:array[0..100000]of longint;

  f:array[1..9]of boolean;

  p:boolean;

function exi(a,b,c:longint):boolean;

  var i:longint;s1,s2,s3:string;

  begin

  str(a,s1);

  str(b,s2);

  str(c,s3);

  for i:=1 to 3 do

    begin

    if pos(s1[i],s2)>0 then exit(false);

    if pos(s2[i],s1)>0 then exit(false);

    if pos(s1[i],s3)>0 then exit(false);

    if pos(s3[i],s1)>0 then exit(false);

    if pos(s2[i],s3)>0 then exit(false);

    if pos(s3[i],s2)>0 then exit(false);

    end;

  exi:=true;

  end;

begin

fillchar(f,sizeof(f),true);

p:=false;

for i:=1 to 9 do

  begin

  f[i]:=false;

  for j:=1 to 9 do

    if f[j] then

    begin

      f[j]:=false;

      for k:=1 to 9 do

      if f[k] then

        begin

        inc(t);

        n[t]:=i*100+j*10+k;

        end;

      f[j]:=true;

    end;

  f[i]:=true;

  end;

readln(a,b,c);

for i:=1 to t-2 do

  for j:=i+1 to t-1 do

  for k:=i+2 to t do

    if (a*n[j]=b*n[i])and(a*n[k]=c*n[i])and(b*n[k]=c*n[j])and exi(n[i],n[j],n[k])

    then

      begin

      p:=true;

      writeln(n[i],' ',n[j],' ',n[k]);

      end;

if not(p) then

  writeln('No!!!');

end.