godbah.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program godbah(input,output);
var
  n,p,q,j,count:integer;
  flagp,flagq:boolean;
begin
  n:=2;
  while (n<=3) and (n mod 2=0) do
    begin
         write('Please input a number>3 and number mod 2=0: ');
         readln(n);
    end;
  p:=1;
  while (p<round(n/2)) do
    begin
      repeat
        p:=p+1;
        q:=n-p;
        flagp:=true;
        for j:=2 to round(sqrt(p)) do
          if p mod j=0 then flagp:=false;
        flagq:=true;
        for j:=2 to round(sqrt(q)) do
          if q mod j=0 then flagq:=false;
      until (flagp and flagq);
      writeln(n:6,'=',p:3,'+',q:3);
    end;
   end.