【寒假任务】洛谷1125 笨小猴

问题描述
给出一个字符串，若出现次数最多的字母max与出现次数最少的字母min之差为质数，那么输出“Lucky Word”和max与min之差，若不是则输出”No Answer”和0。
样例输入1
error
样例输入2
olympic
样例输出1
Lucky Word
2
样例输出2
No Answer
0
算法讨论
字符串不长，简单的模拟一下就ok。主要是要注意max-min为0和1的情况，这两个也是“No Answer”。

const
  maxn=100;
var
  a:array['a'..'z'] of longint;
  i,j,l,max,min,q:longint;
  st:string;
  c:char;
begin
  readln(st);
  l:=length(st);
  for i:=1 to l do
    inc(a[st[i]]);
  min:=maxlongint;
  for c:='a' to 'z' do
    if a[c]>max
      then max:=a[c]
      else if (a[c]<min) and (a[c]<>0)
             then min:=a[c];
  q:=max-min;
  for i:=2 to trunc(sqrt(q)) do
    if q mod i=0
      then begin
             writeln('No Answer');
             writeln(0);
             halt
           end;
  if (q<>0) and (q<>1)
    then begin
           writeln('Lucky Word');
           writeln(q)
         end
    else begin
           writeln('No Answer');
           writeln(0)
         end;
end.

Pixiv ID：58978092