Marx2002 2016-08-01 21:37:18
点我顶贴
收藏
删除
var n,k,min,max,i,x,p,q:longint;
begin
readln(n,k);
min:=0;
max:=maxlongint;
for i:=1 to n do
begin
read(x);
if (x<k) and (k-x<k-min) then min:=x;
if (x>k) and (x-k<max-k) then max:=x;
end;
p:=max+min;
q:=1;
writeln(p);
for i:=2 to trunc(sqrt(p)) do
if p mod i=0 then begin q:=0; break; end;
if q=0 then write('F') else write('Y');
end.