UC知道把数字1，2，3，4，…，9分成3组，每组构成一个3位数，使这3个3位数恰好成1：2：3，该怎样分？
来源：百度知道 编辑：UC知道 时间：2024/05/05 14:51:06
把数字1，2，3，4，…，9分成3组，每组构成一个3位数，使这3个3位数恰好成1：2：3，该怎样分？求出所有的解答来。（如：192，384，576就是一组解答）。补充一点，这题目要用最基础的解，我才学了分支结构，循环才学了FOR，题目的要求好象是要用FOR来解，下面是我编的，但是结果出不来，高手们看看吧，谢谢指教。
program ex;
var flag,i,j,first,second,third:integer;
a:array[0..8] of integer;
begin
for first:=123 to 329 do
begin
flag:=1;
second:=first*2;
third:=first*3;
a[0]:=first div 100;
a[1]:=first mod 100 div 10;
a[2]:=first mod 100;
a[3]:=second div 100;
a[4]:=second mod 100 div 10;
a[5]:=second mod 100;
a[6]:=third div 100;
a[7]:=third mod 100 div 10;
a[8]:=third mod 100;
for i:=0 to 7 do
for j:=1 to 8 do
if a[i]=a[j] then
flag:=0;
if flag=1 then
writeln(first,' ',second,' ',third)
end
end.
我的程序到底错在哪里。
program ex;
var flag,i,j,first,second,third:integer;
a:array[0..8] of integer;
begin
for first:=123 to 329 do
begin
flag:=1;
second:=first*2;
third:=first*3;
a[0]:=first div 100;
a[1]:=first mod 100 div 10;
a[2]:=first mod 100;
a[3]:=second div 100;
a[4]:=second mod 100 div 10;
a[5]:=second mod 100;
a[6]:=third div 100;
a[7]:=third mod 100 div 10;
a[8]:=third mod 100;
for i:=0 to 7 do
for j:=1 to 8 do
if a[i]=a[j] then
flag:=0;
if flag=1 then
writeln(first,' ',second,' ',third)
end
end.
我的程序到底错在哪里。
s=0;
int interger[3];
times=0
while(times<9)
{
for(i=1;i<=9;i++)
for(j=1;j<=9;j++)
for(k=1;k<=9;k++)
{
if(i!=j&&i!=k&&j!=k) integer[s++]=100*i+10*j+k;
}
if(integer[0]*2==integer[1]&&integer[0]*3==integer[2]&&integer[1]*3==integer[2]*2)
{ for(m=0;m<3;m++) printf("%d ",integer[m]);}
times++;
}
说
把数字1，2，3，4，…，9分成3组，每组构成一个3位数，使这3个3位数恰好成1：2：3，该怎样分？
数字“1、4”分为一组，数字“0、2、3、5、6、7、8、9”分为一组。请问我是按什么规律或特点分的这两组？
把0，1，2，3，4，5，6，7，8，9十个数字组成三个数
找规律：第1个数字为3，第2个数字为9，第3个数字为18，第4个数字为30……第N个数字为什么？
从1，2，3，……，9这9个数字中任取2个数字，
回答正确有追加分．由数字0，1，2，3，4，5组成没有重复的6位数，其中各位数字小于十位数字的概率是（ ）
把1、1、2、2、3、3、4、4、5、5重新排成一列，使两个1中间夹着一个数字……两个5之间夹着5个数字。
1 ,3,5,7,9中选3个数字.2 ,4,6,8中任选2个数字可以组成多少个没有重复的数字?
从数字1，2，3，4，5中，随机抽取三个数字（允许重复）组成一个三位数，其各位数字之和等于9的概率是？
100百张一匝的1分.2分.5分纸币（无数字）分别收购价是多少