Panyp 2013-06-29 04:39:00
点我顶贴
收藏
删除
program ex_159;
var n,k,x,i,ans,b,s:longint;z:boolean;
begin
readln(n,k);
b:=200000;
s:=200000;
for i:=1to n do
begin
read(x);
if x<k then
if k-x<s then s:=k-x;
if x>k then
if x-k<b then b:=x-k;
end;
ans:=k-s+k+b;
z:=true;
for i:=2to trunc(sqrt(ans)+1)do
if ans mod i=0 then
begin
z:=false;
break;
end;
writeln(ans);
if z then writeln('Y') else writeln('F');
end.