编程高手请进！！！！！
答案:3 悬赏:0 手机版
解决时间 2021-11-07 17:20
- 提问者网友：末路
- 2021-11-07 01:39
编程高手请进！！！！！
最佳答案
- 五星知识达人网友：骨子里都是戏
- 2021-11-07 01:51
不用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.
不理解的话我再加注释
：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.
不理解的话我再加注释
全部回答
- 1楼网友：第四晚心情
- 2021-11-07 03:44
dp
- 2楼网友：雪起风沙痕
- 2021-11-07 02:20
你去金台路那儿有一个图书大厦，那里有很多计算机的书，其中就有编程的，好象是一层，书名是什么我忘了，去看看吧！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯