下面有一条段程序求教？？？

Question

求一个不小于6的偶数可以表示为两个素数之和。
function ss1(m:integer):boolean;
var
 i:integer;
 b:boolean;
begin
 i:=3;
 while i<=sqr(m) do
  if m mod i=0 then
   begin
    b:=false;
    break;
   end
  else
   i:=i+1;
 ss1:=b;
end;procedure TForm1.Button1Click(Sender: TObject);
var
 i,n,a,b:integer;
begin
 n:=strtoint(edit1.Text);
for i:=6 to n do
  if n mod 2=0 then
   begin
    a:=i div 2+1;
    b:=i div 2-1;
     if ss1(a)=false and ss1(b)=false then
      begin
       panel1.Caption:='哥德巴赫猜想是对的'.
       break;
      end
   end
end;

Answer 1

你想问什么呢????????????????????