pascal把数码1,2,3,4,...,9,分成3组,每组构成一个3位数,使这3个3位数恰好成为1:2:3.

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/05 21:04:09

pascal把数码1,2,3,4,...,9,分成3组,每组构成一个3位数,使这3个3位数恰好成为1:2:3.
能不能写出每句话的意思

小丝望楼主采纳
var s,s1,s2,s3:string;
a1,a2,a3:integer;
k:integer;
ch:char;
begin
for a1:=102 to 329 do begin
a2:=a1*2; a3:=a1*3;
str(a1,s1); str(a2,s2); str(a3,s3);
s:=s1+s2+s3;
for ch:='0' to '9' do delete(s,pos(ch,s),1);
if s='' then begin
inc(k); writeln(' -----',s1,' ',s2,' ',s3);
end;
end;
end.
再问：能不能写出每句话的意思

pascal把数码1,2,3,4,...,9,分成3组,每组构成一个3位数,使这3个3位数恰好成为1:2:3. PASCAL题目把数字1,2,3,4,…,9分成3组,每组构成一个3位数,使这3个3位数恰好成1：2：3 该怎样编写? 用pascal语言将1,2,…,9共9 个数分成3组,分别组成3个3位数,且使这3个3位数构成1：2：3的比例,试求出所由数码1,2,3,4可以组成多少个大于1234的四位数 1－9个数字用4位数除以2位数＝3位数 9个数字不能重复使用数字1至9,组成4位数,3位数,2位数数字不重复,使4位数除以2位数等于3位数 10个数字摆任意组合0123456789 这10个数字摆成任意组合 1位数 2位数3位数4位数一直到9位数反正就是随便 5个数码1和4个数码组成一个二进制9位数有一个六位数,如果把它的首位数字1调到末尾,那么新的六位数恰好是原数的3倍,求原来的六位数. 用1,2,3,4,5五个数码可以组成120个四位数,将他们从小到大排列起来,4125是第几个?第65个数是几? 用1、2、3、4、5这五个数码可以组成多少个没有重复数字的四位数？将这些四位数从小到大排列起来，4125是第几个？一道题希望大家帮从1到9中取出3个数码用这三个数码组成6个不同的3位数之和是3330这6个3位数中最大最小是几