初学者求解! - 编程论坛

#2

multiple19022007-08-12 20:39

别问应该自己解决的问题。

#3

multiple19022007-08-12 20:41

穷举你都不会么？

#4

multiple19022007-08-12 20:44

422050933 20:44:13
我就不明白,你会C++为什么不直接写出来给我?
m1902 菜鸟 20:44:21
怕你懒。
422050933 20:44:46
我懒的话,还会到处请教别人教我做这道题?
422050933 20:45:12
我已经问了好多的人了,他妈的都是饭桶.....
m1902 菜鸟 20:45:29
你不会自己解决这个问题么
422050933 20:45:36
好不容易找到了你这位高手,你却为难我.

这就是你的态度吗？

[此贴子已经被作者于2007-8-12 20:46:05编辑过]

#5

multiple19022007-08-12 20:49

哦对顺便给出pascal语言中的答案，我不知道为什么有人不用自己的脑子思考。

for a:=1 to 24 do
for b:=a+1 to 25 do
for c:=b+1 to 26 do
....
for g:=f+1 to 30 do
if a+b+c+d+e+f+g=... then print(a,b,c,d,e,f,g)

#6

multiple19022007-08-12 20:57

program test;
var a,b,c,d,e,f,g:integer;

begin
assign(output,'1.txt');
rewrite(output);
for a:=1 to 24 do
for b:=a+1 to 25 do
for c:=b+1 to 26 do
for d:=c+1 to 27 do
for e:=d+1 to 28 do
for f:=e+1 to 29 do
for g:=f+1 to 30 do
if a+b+c+d+e+f+g=114 then writeln(a,',',b,',',c,',',d,',',e,',',f,',',g);
close(output);
end.

（pascal的）
真不知道这程序有什么难的了。

#7

aipb20072007-08-12 22:47

#8

野比2007-08-12 23:24

重复帖, 锁了..
回帖请到另一帖..
https://bbs.bc-cn.net/viewthread.php?tid=162183