从1 到49 ,7 个数加起来的和值等于200 的有哪几组数
答案:2 悬赏:70 手机版
解决时间 2021-03-17 02:12
- 提问者网友：谁的错
- 2021-03-16 10:26
从1 到49 ,7 个数加起来的和值等于200 的有哪几组数
最佳答案
- 五星知识达人网友：北城痞子
- 2021-03-16 10:52
var
a,b,c,d,e,f,g,x:longint;
begin
assign(output,'1_49.out');
rewrite(output);
for a:=1 to 49 do
for b:=a to 49 do
for c:=b to 49 do
for d:=c to 49 do
for e:=d to 49 do
for f:=e to 49 do
for g:=f to 49 do
begin
x:=a+b+c+d+e+f+g;
if x=200 then writeln(a,'+',b,'+',c,'+',d,'+',e,'+',f,'+',g,'=200');
if x>200 then break
end;
close(output)
end.
这是pascal源码你自己跑一下就知道了
输出结果的文件有40M，这里是放不下的了。
a,b,c,d,e,f,g,x:longint;
begin
assign(output,'1_49.out');
rewrite(output);
for a:=1 to 49 do
for b:=a to 49 do
for c:=b to 49 do
for d:=c to 49 do
for e:=d to 49 do
for f:=e to 49 do
for g:=f to 49 do
begin
x:=a+b+c+d+e+f+g;
if x=200 then writeln(a,'+',b,'+',c,'+',d,'+',e,'+',f,'+',g,'=200');
if x>200 then break
end;
close(output)
end.
这是pascal源码你自己跑一下就知道了
输出结果的文件有40M，这里是放不下的了。
全部回答
- 1楼网友：行路难
- 2021-03-16 11:13
期待看到有用的回答！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯