P1618 三连击（升级版）

P1618 三连击（升级版）

题目描述

将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<B<C

var

x:array[0..9]
of longint;

a,b,c,i,aa,bb,cc,j:longint;

ji,ji2:boolean;

procedure
try(n:longint);//拆分并统计每个数字的使用次数

begin

while
n<>0
do

begin

x[n mod
10]:=x[n
mod 10]+1;

n:=n div
10;

end;

end;

begin

readln(a,b,c);

ji2:=false;

for
i:=1
to 999
do

begin

ji:=true;

for
j:=0
to 9
do//重置

x[j]:=0;

aa:=a*i;//按a:b:c来计算

bb:=b*i;

cc:=c*i;

try(aa);

try(bb);

try(cc);

for
j:=1
to 9
do//判断数字是否有重复

if
x[j]<>1
then ji:=false;

if
ji then

 
begin

if
(aa<=999)
and
(bb<=999)
and (cc<=999)then
writeln(aa,' ',bb,' ',cc);//确保是三位数

ji2:=true;//有解

end;

end;

if
ji2=false
then writeln('No!!!');//无解输出“NO!!!”

end.