本文主要是介绍信息学奥林匹克竞赛-三连击，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
三连击
题目描述
将1，2，…，9共9个数分成三组，分别组成三个三位数，且使这三个三位数构成1：2：3的比例，试求出所有满足条件的三个三位数。输入输出格式
输入格式：木有输入
输出格式：若干行，每行3个数字。按照每行第一个数字升序排列。
输出样例
192 384 576
* * *
...
* * *
（输出被和谐了）
* * *
...
* * *
（输出被和谐了）
var
a1,a2,a3,n,t,i:longint;
flag:boolean;
d:array[1..9] of longint;beginfor a1:=111 to 999 dobeginfor a2:=2*a1 to 999 dobeginfor a3:=3*a1 to 999 dobeginif (a1*2=a2) and (a1*3=a3) thenbeginfor i:=1 to 9 do d[i]:=0;t:=a1;while t>0 dobegininc(d[t mod 10]);t:=t div 10;end;t:=a2;while t>0 dobegininc(d[t mod 10]);t:=t div 10;end;t:=a3;while t>0 dobegininc(d[t mod 10]);t:=t div 10;end;flag:=true;for i:=1 to 9 dobeginif d[i]<>1 then flag:=false;end;if flag=true then writeln(a1,' ',a2,' ',a3);end;end;end;end;
end.这篇关于信息学奥林匹克竞赛-三连击的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
