【题目描述】 笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！ 这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。 【输入格式】 一个单词，其中只可能出现小写字母，并且长度小于100 【输出格式】 第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”； 第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。 【样例输入1】 error 【样例输出1】 Lucky Word 2 【样例输入2】 olympic 【样例输出2】 No Answer 0 【分析】 模拟水题。
var a:array['a'..'z']of longint; s:string; i,len,max,min:longint; j:char; function prime(x:longint):boolean; var i:longint; begin if x<2 then exit(false);//一定要判断小于2的数，比如1 for i:=2 to trunc(sqrt(x)) do if x mod i=0 then exit(false); exit(true); end; begin read(s); len:=length(s); for i:=1 to len do inc(a[s[i]]); max:=0;min:=maxint; for j:='a' to 'z' do if a[j]>0 then begin if a[j]>max then max:=a[j]; if a[j]<min then min:=a[j]; end; if prime(max-min) then begin writeln('Lucky Word'); writeln(max-min); end else begin writeln('No Answer'); writeln(0); end; end.转载于:https://www.cnblogs.com/JRX2015U43/p/6533527.html
相关资源：2008noip笨小猴