作业帮pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 32
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/30 18:18:27
{79sM iqz ^ svP 1>N /~Ϗƥ7q=XCg6_'5.2>~o :Uv}@&[sI$7m{#ŐW,ޮQǻ_u@eHHQ$$QAa9V#Q$KpvQHPXK#." DpNƛD7JچV#Z H x ^6t#yH#(ɨ.eHȠo[lИYٗJT DIDV@&`RgNʘ_fվ[;P Mɂ Z9=ga ɿ_2{Ѷ0o2{ ء 6RPfmHy #pGӓ;:_"SMH@ϊzI2tH$L"]~f@D ^;5:' 5هqt5;5!%6'
pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 32
pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!
且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 327 654 981
pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 32
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.