pascal把数码1,2,3,4,...,9,分成3组,每组构成一个3位数,使这3个3位数恰好成为1:2:3.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 09:06:51
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.
再问: 能不能写出每句话的意思
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位数中最大最小是几