作业帮pascal 巧妙填数 将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例试求出所有满足条件的三个三位数. 例如：三个三位数192,384,576满足以上条件.无输入输出：
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/27 14:45:21
pascal 巧妙填数 将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例试求出所有满足条件的三个三位数. 例如：三个三位数192,384,576满足以上条件.无输入输出：
pascal 巧妙填数 将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例
试求出所有满足条件的三个三位数.
例如：三个三位数192,384,576满足以上条件.
无输入
输出：需要输出全部结果.
每行输出3个数 用空格隔开.按照字典序的顺序输出.
急求程序和最后输出的数据谢谢
pascal 巧妙填数 将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例试求出所有满足条件的三个三位数. 例如：三个三位数192,384,576满足以上条件.无输入输出：
程序：
program l_1(input,output);
var
a:array[0..9] of integer;
f:boolean;
i,ii,iii,j:integer;
procedure fl(x:integer);
begin
while x0 do
begin
a[x mod 10]:=a[x mod 10]+1;
x:=x div 10;
end;
end;
begin
for i:=123 to 321 do
begin
fillchar(a,sizeof(a),0)
ii:=i*2;
iii:=i*3;
fl(i);
fl(ii);
fl(iii);
f:=true;
for j:=0 to 9 do
if a[j]=0 then f:=false;
if f=true then writeln(i:5,ii:5,iii:5);
end;
end.
输出结果你自己走一遍就行了,我这没装环境,抱歉~