alsomn.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 23 行

program somn;
var n,i,s,k,p:integer;

function prim(x:integer):boolean;
var i:integer;
begin
prim:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0  then prim:=false;
end;

begin
writeln('n=');
readln(n);
s:=n;
for i:=5 to n do
if prim(i) then begin
                k:=n-i;
                p:=k+i;
                if (prim(k)) and (s=p) then writeln('e bun');
                end
           else writeln('nu e bun');
end.