编程高手请进!!!!!

将1~9这九个数分成3组,分别组成3个三位数,且使这3个三位数构成1:2:3的比例,试求出所有满足条件的3个三位数。(用‘一维数组’做,TurboPascal语言)... 将1~9这九个数分成3组,分别组成3个三位数,且使这3个三位数构成1:2:3的比例,
试求出所有满足条件的3个三位数。(用‘一维数组’做,Turbo Pascal语言)
展开
 我来答
TrA_Fly
2008-08-22 · 超过15用户采纳过TA的回答
知道答主
回答量:38
采纳率:0%
帮助的人:0
展开全部
不用1维更方便
:var a,b,c,n:integer;
function mun(v,t:integer):integer;
var j1,j2,j3:integer;
begin
j1:=v div100;
j2:=(v-j1*100) div 10;
j3:=v-j1*100-j2*10;
if t=1 then mun:=j1+j2+j3
else mun:=j1*j2*j3;
end;
begin
for a:=1 to 3 do
for b:=1 to 9 do
for c:=1 to 9 do
begin
n:=a*100+b*10+c;
if n*3<1000 then
begin
if (mun(n,1)+mun(n*2,1)+mun(n*3,1)=45) and ((mun(n,0)*mun(n*2,0)*mun(n*3,0))=362880) then
writeln(n,' ',n*2,' ',n*3);
end;
end.
不理解的话我再加注释
gpw94925
2008-08-22
知道答主
回答量:15
采纳率:0%
帮助的人:2.6万
展开全部
你去金台路那儿有一个图书大厦,那里有很多计算机的书,其中就有编程的,好象是一层,书名是什么我忘了,去看看吧!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
我的偶像是周瑜
2008-08-22 · TA获得超过268个赞
知道答主
回答量:170
采纳率:0%
帮助的人:120万
展开全部
dp
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式