本题地址: 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.