哥德巴赫猜想

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n,p,q,j:integer;
   flagp,flagq:boolean;
   label 1;
begin
 1:  writeln('输入一个偶数');
 read(n);
  P:=1;
  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,'=',p,'+',q);
    goto 1;
end.

 

源码 https://files.cnblogs.com/atiger/基础算法(控制台程序).rar