Marx2002 2016-09-10 22:28:03
点我顶贴
收藏
删除
var s:string; c:char; i,maxn,minn:longint; a:array ['a'..'z'] of longint;
function zs(x:longint):longint;
var i:longint;
begin
zs:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then begin zs:=1; break; end;
if x<=1 then zs:=1;
end;
begin
readln(s);
for i:=1 to length(s) do
inc(a[s[i]]);
maxn:=-1;
minn:=101;
for c:='a' to 'z' do
begin
if (a[c]>0) and (a[c]>maxn) then maxn:=a[c];
if (a[c]>0) and (a[c]<minn) then minn:=a[c];
end;
if zs(maxn-minn)=0 then
begin writeln('Lucky Word'); write(maxn-minn); end else
begin writeln('No Answer'); write(0); end;
end.