pascal编程:将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 32
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 03:01:52
![pascal编程:将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 32](/uploads/image/z/640327-31-7.jpg?t=pascal%E7%BC%96%E7%A8%8B%EF%BC%9A%E5%B0%861%7E9%E8%BF%999%E4%B8%AA%E6%95%B0%E5%AD%97%E5%88%86%E6%88%90%E4%B8%89%E7%BB%84%28%E6%AF%8F%E4%B8%AA%E6%95%B0%E5%AD%97%E5%8F%AA%E8%83%BD%E7%94%A8%E4%B8%80%E6%AC%A1%29%2C%E5%88%86%E5%88%AB%E7%BB%84%E6%88%90%E4%B8%89%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%95%B0.%E6%B1%82%E5%A4%A7%E5%B8%88%E8%AE%B2%E8%A7%A3%E4%B8%80%E4%B8%8B%E5%90%A7%21%E4%B8%94%E8%BF%99%E4%B8%89%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%95%B0%E7%9A%84%E5%80%BC%E6%9E%84%E6%88%901%3A2%3A3%E7%9A%84%E6%AF%94%E4%BE%8B%2C%E8%AF%95%E6%B1%82%E5%87%BA%E6%89%80%E6%9C%89%E6%BB%A1%E8%B6%B3%E6%9D%A1%E4%BB%B6%E7%9A%84%E4%B8%89%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%95%B0.+192+384+576+219+438+657+32)
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.