111406107 2012-07-12 04:00:00
点我顶贴
收藏
删除
var st:string;
i,x,n,min,max:longint;
a:array['a'..'z']of longint;
ch:char;
begin
readln(st);
fillchar(a,sizeof(a),0);
for i:=1 to length(st) do
inc(a[st[i]]);
max:=0;
min:=100001;
for ch:='a' to 'z' do
if a[ch]>0 then
begin
if a[ch]>max then max:=a[ch];
if a[ch]<min then min:=a[ch];
end;
n:=max-min;
if n< 2 then BEGIN
writeln('No Answer');
writeln(0); end
else
if (n=2) or (n=3) then
begin
writeln('Lucky Word');
writeln(max-min); end
else begin
x:=2;
while (x<=trunc(sqrt(n))) and (n mod x<>0) do
x:=x+1;
if (x>trunc(sqrt(n)))
then
begin
writeln('Lucky Word');
writeln(max-min); end
else
begin writeln('No Answer');
writeln(0); end ;
end;
end.