洛谷 1125——笨小猴（简单的模拟）

本文主要是介绍洛谷 1125——笨小猴（简单的模拟），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

题目描述

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

这种方法的具体描述如下：假设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  s:string;i,max,min:longint;a:array[1..26]of longint;
beginreadln(s);for i:=1 to length(s) doif (s[i]>='a')and(s[i]<='z') then inc(a[ord(s[i])-96]);max:=0;min:=maxlongint;for i:=1 to 26 doif a[i]>max then max:=a[i]else if (a[i]<min)and(a[i]>0) then min:=a[i];max:=max-min;if (max=0)or(max=1) thenbeginwriteln('No Answer');writeln('0');endelsebeginfor i:=2 to trunc(sqrt(max)) doif max mod i=0 thenbeginwriteln('No Answer');writeln('0');end;writeln('Lucky Word');writeln(max);end;
end.var  s:string;i,max,min:longint;a:array[1..26]of longint;
beginreadln(s);for i:=1 to length(s) doif (s[i]>='a')and(s[i]<='z') then inc(a[ord(s[i])-96]);max:=0;min:=maxlongint;for i:=1 to 26 doif a[i]>max then max:=a[i]else if (a[i]<min)and(a[i]>0) then min:=a[i];max:=max-min;if (max=0)or(max=1) thenbeginwriteln('No Answer');writeln('0');endelsebeginfor i:=2 to trunc(sqrt(max)) doif max mod i=0 thenbeginwriteln('No Answer');writeln('0');end;writeln('Lucky Word');writeln(max);end;
end.