zyf111 2015-08-29 01:33:42
点我顶贴
收藏
删除
var i,j,k,l,n,m:longint;
function f(x:longint):boolean;
var i,j,k:longint;
begin
f:=true;for i:=2 to trunc(sqrt(x)) do if x mod i=0 then begin f:=false;exit;end;
end;
begin
read(n);
for i:=4 to n do
if i mod 2=0 then
for j:=2 to i div 2 do
if(f(j)) and (f(i-j)) then begin writeln(i,'=',j,'+',i-j);break end;
end.