codevs1052

题目地址：http://codevs.cn/problem/1053/

分析：

模拟

代码：

var s:string;
a:array['a'..'z'] of longint;
i,j,t,n:longint;
k:char;
d:array[1..100000] of longint;
function cf(x:longint):boolean;
var i,y:longint;
begin
y:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then y:=1;
if (x=1) or (y=1) then cf:=false
else cf:=true;
end;
begin
readln(s);
for i:=1 to length(s) do
a[s[i]]:=a[s[i]]+1;
for k:='a' to 'z' do
if a[k]>0 then
begin
n:=n+1;
d[n]:=a[k];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if d[i]
i:=d[1]-d[n];
if (cf(i)) and (i>=1) then begin writeln('Lucky Word');writeln(i); end
else begin writeln('No Answer'); writeln('0'); end;
end.