P1008 三连击

P1008 三连击

题目描述

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

输入输出格式

输入格式：

木有输入

输出格式：

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

输入输出样例

输入样例#1：

输出样例#1：

192 384 576
* * *
...
* * *
（输出被和谐了）

var 

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

i,a,b,c,j:longint;

ji: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;

begi n

for i:= 1 to 999 do

begin

ji:= true ;

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

x[j]:= 0 ;

a:= 1 *i;//按1:2:3来计算

b:= 2 *i;

c:= 3 *i;

try (a);

try (b);

try (c);

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

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

if ji then if (a<=999) and (b<=999) and (c<=999)then writeln(a,' ',b,' ',c) ;//确保是三位数

end;

end.