笨小猴

题目描述

笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！

这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。

输入输出格式

输入格式：

输入文件word.in只有一行，是一个单词，其中只可能出现小写字母，并且长度小于100。

输出格式：

输出文件word.out共两行，第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”；

第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。

输入输出样例

输入样例#1：

error

输出样例#1：

Lucky Word
2

输入样例#2：

olympic

输出样例#2：

No Answer
0

说明

【输入输出样例1解释】

单词error中出现最多的字母r出现了3次，出现次数最少的字母出现了1次，3-1=2，2是质数。

【输入输出样例2解释】

单词olympic中出现最多的字母i出现了2次，出现次数最少的字母出现了1次，2-1=1，1不是质数。

//注：此处原题解释有误，实际上是0，也不是质数。

noip2008提高第一题

程序如下

var
  a:array['a'..'z']of longint;
  i,j,k,max,min:longint;
  f:boolean;
  ch:char;
procedure init;
var
  i,j,k:longint;
  s:string;
  ch,ch2:char;
begin
//  assign(input,'word.in');reset(input);
//  assign(output,'word.out');rewrite(output);
  readln(s);
  k:=length(s);
  for i:=1 to k do
    begin
      ch:=s[i];
      a[ch]:=a[ch]+1;
    end;
  max:=a[ch]; min:=a[ch];
end;


begin
  init;
  for ch:='a' to 'z' do
    begin
      if (a[ch]>max) and (a[ch]>=1)
         then max:=a[ch];
      if (a[ch]<min) and (a[ch]>=1)
        then min:=a[ch];
    end;
  max:=max-min;
  f:=true;
  for i:=2 to trunc(sqrt(max)) do
    begin
      if max mod i=0
        then begin
               f:=false;
               break;
             end;
    end;
  if max=1 then f:=false;
  if max=0 then f:=false;
  if  f
    then begin
           writeln('Lucky Word');
           writeln(max);
         end
    else begin
           writeln('No Answer');
           writeln('0');
        end;
  close(input);
  close(output);
end.