贺天行宝
老奸贼!!![em10]

例1-1-3  在如图所示的圆圈中，不重复地填入数字1、2、3、4、5、6。要求每条边上三个数之和都相同，编程打印输出各种填法。（排列问题）
var
  s,n,a,b,c,d,e,f : integer;
begin
  n := 0;
  for a := 1 to 6 do
    for b := 1 to 6 do
      if b <> a then
        for c := 1 to 6 do
          if (c <> a) and (c <> b) then
            for d := 1 to 6 do
              if (d <> a) and (d <> b) and (d <> c) then
                for e := 1 to 6 do
                  if (e <> a) and (e <> b) and (e <> c) and (e <> d) then
                    begin
                      f := 21-a-b-c-d-e;
                      s := a+b+c;
                      if (c+d+e = s) and (a+f+e = s) then begin
                        n := n+1;
                        writeln('No.',n:2,' : ',a:4);
                        writeln(b:10,f:4);
                        writeln(c:8,d:4,e:4);
                        readln;
                      end;
                    end;
end.
像本程序中间的部分就是穷举！

[em1]
  你会黑喀吗？

说话啊
  你会不会嘛？？？？？？？？？？？？

你们会不会黑克

[quote]晕[/quote]

穷举素数问题:
var 
  i,n,j:longint;
  p:boolean;
begin
  readln(n);
  for i:=2 to n do 
    begin
      p:=true; 
      for j:=2 to trunc(sqrt(i))
        begin
          if i mod j=0 then p:=false;
        end;
      if p then writeln(i);   
   end;
end.

汗死,学编程连穷举都不知道,说简单点就是一个一个
试

555555大哥们+我的Q吧......我不明白啊....529828394

一个一个试就叫穷举