pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/03 13:36:00

pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!
且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 327 654 981

var i,j1,j2,j3,k:integer; s:set of 1..9;
begin
for i:=123 to 329 do //满足条件的三位数中最小数的范围
begin
s:=[]; j1:=i; j2:=2*i; j3:=3*i; //s为空集,原数,二倍、三倍
for k:=1 to 3 do //分三次取
begin
s:=s+[j1 mod 10,j2 mod 10,j3 mod 10]; //取每个数的最低位,放到集合中
j1:=j1 div 10; j2:=j2 div 10; j3:=j3 div 10; //去除每个数的最低位
end;
if s=[1..9] then writeln(i,i*2:5,i*3:5); //如果在三个三位数中,取遍了1~9,就是一种方案
end;
end.
再问：可以不用这种方法，用数组吗？
并且你的程序我连看都看不懂，可以有更简便的吗？用数组就行了。
再答： var i,j1,j2,j3,j,k:integer; a:array[0..9]of integer;
begin
for i:=123 to 329 do //满足条件的三位数中最小数的范围
begin
fillchar(a,sizeof(a),0);
j1:=i; j2:=2*i; j3:=3*i; //原数，二倍、三倍
for k:=1 to 3 do //分三次取
begin
a[j1 mod 10]:=1;
a[j2 mod 10]:=1;
a[j3 mod 10]:=1; //取每个数的最低位，记录此数已出现过
j1:=j1 div 10; j2:=j2 div 10; j3:=j3 div 10; //去除每个数的最低位
end;
k:=0;
for j:=1 to 9 do inc(k,a[j]);
if k=9 then writeln(i,i*2:5,i*3:5); //如果在三个三位数中，取遍了1~9，就是一种方案
end;
end.

pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧! 将1~9这9个数字分成三组（每个数字只能用一次）,分别组成三位数,且这三个三位数的值构成1：2：3的比例. 将1-9这9个数子分成三组（每个数字只能使用一次）,分别组成三个三位数,值构成1：2：3的比例将1-9共9个数字分成三组,分别组成3个三位数,使这三个三位数构成1:2:3 请把1到9九个数字分别组成三个三位数（每个数字只能用一次）,使三个数相减的结果最小用1~9这9个数字（每个数字只能用一次）组成一个三位数减三位数,差也是三位数的算式吗? 将1-9这9个数字分成三组(每个数字只能使用一次) 1,2,3,4,5,6,7,8,9这九个数组成三个三位数（每个数字只能用一次）这三个三位数之和最大是多少? 用1~9九个数字,如果每个数字都用到,并且只能用一次,那么这九个数字能组成(）个质数,它们分别是（）. pascal平方数平方数将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出：从小到大输出这三个平方用1-9这九个数,组成一道三位数加三位数等于三位数的加法算式题,每个数字只能用一次. 用0、3、7、9四个数字,能组成多少个不同的三位数?（在一个三位数中,每个数字只能用一次）