you52800 2012-07-05 19:41:00
点我顶贴
收藏
删除
var a:array['a'..'z']of longint;
s:string;
n,m,min,i,x:longint;
c:char;
f:boolean;
begin
readln(s);
for i:=1 to length(s) do
inc(a[s[i]]);
m:=0;
min:=2147483647;
for c:='a' to'z' do
if a[c]>0 then
begin
if a[c]>m then m:=a[c];
if a[c]<min then min:=a[c];
end;
n:=m-min;
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');
write(n);end
else
begin
writeln('No Answer'); write(n);end;
end;
end.