用pascal语言将1,2,…,9共9 个数分成3组,分别组成3个3位数,且使这3个3位数构成1：2：3的比例,试求出所

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/18 10:38:58

用pascal语言
将1,2,…,9共9 个数分成3组,分别组成3个3位数,且使这3个3位数构成1：2：3的比例,试求出所有满足条件的3个3位数（输出：每行输出3个同一情况的数）.

var
a,b,c,i:integer;{a,b,c表示三个3位数}
f:array[0..9]of 0..1;
{用来表示哪些数用了,因为可能出现0,所以不是1..9}
bo:boolean;{标志是不是1~9都用了}
begin
for a:=123 to 329 do
{几个数位不相同,最小为123,最大为329,三倍也要是3位数}
begin
fillchar(f,sizeof(f),0);{数组清零,表示没个数都没用}
bo:=true;{赋初值,true表示该数可用}
b:=2*a;
c:=3*a;{计算另外两个数字}
f[a mod 10]:=1;f[a div 10 mod 10]:=1;f[a div 100]:=1;
f[b mod 10]:=1;f[b div 10 mod 10]:=1;f[b div 100]:=1;
f[c mod 10]:=1;f[c div 10 mod 10]:=1;f[c div 100]:=1;
{拆分a,b,c三个数,用了的数做上标记,赋值为1}
for i:=1 to 9 do{检查是不是1~9都用了}
if f[i]=0 then{i没有用还是0,没有赋值为1}
bo:=false;{把bo变为false,表示此数不可用}
if bo then{bo没有变为false,此数符合题意}
writeln(a,' ',b,' ',c);{输出三个数}
end;
end.

用pascal语言将1,2,…,9共9 个数分成3组,分别组成3个3位数,且使这3个3位数构成1：2：3的比例,试求出所 pascal 巧妙填数将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例 0至9,共10个数,组成2个3位数,2个3位数之和是个4位数,不能重复用数字, 由1,2,3,4这四个数字组成的4位数共24个,将它们从小到大排列,第20个数是4213,所 pascal把数码1,2,3,4,...,9,分成3组,每组构成一个3位数,使这3个3位数恰好成为1:2:3. 将1-9共9个数字分成三组,分别组成3个三位数,使这三个三位数构成1:2:3 用 1-9的数,组成3个2位数和1个3位数使2个2位数的乘积等于1个2位数和3位数的乘积将1-9这9个数子分成三组（每个数字只能使用一次）,分别组成三个三位数,值构成1：2：3的比例将1~9这9个数字分成三组（每个数字只能用一次）,分别组成三位数,且这三个三位数的值构成1：2：3的比例. 有1,2,3,4,5共5个数,任意选4个数字组成能被11整除的四位数,这些四位数共有多少个? PASCAL题目把数字1,2,3,4,…,9分成3组,每组构成一个3位数,使这3个3位数恰好成1：2：3 该怎样编写? 奥数0-9个数组成1位数加2位数加3位数等于4位数加法竖式,且每个空不能重复!