題意

找出在單詞里出現最多的單詞的次數，再找出在單詞里出現最少的單詞的次數，最多和最少的次數相減，如果結果是素數，

那么就是Lucky Word，不然就是No Answer

分析

假設maxn是單詞中出現次數最多的字母的出現次數，minn是單詞中出現次數最少的字母的出現次數，如果maxn-minn是一個質數，那么笨小猴就認為這是個Lucky Word

var
w:string;
a:array[0..200]of longint;
l,maxn,minn,i,j,t,m:longint;
function ss(s:longint):longint;
var
bz,i:longint;
begin
? ? bz:=1;
? ? for i:=2 to trunc(sqrt(s)) do
? ? if s mod i=0 then
? ? begin
? ? ? ? bz:=0;
? ? ? ? break;
? ? end;
? ? exit(bz);
end;


begin


? ? read(w);
? ? l:=length(w);
? ? fillchar(a,sizeof(a),0);


? ? maxn:=0;
? ? minn:=100;


? ? for i:=1 to l do
? ? begin
? ? ? ? if a[ord(w[i])]=0 then
? ? ? ? begin
? ? ? ? ? ? for j:=pos(w[i],w) to l do
? ? ? ? ? ? if w[j]=w[i] then a[ord(w[i])]:=a[ord(w[i])]+1;


? ? ? ? ? ? if a[ord(w[i])]>=maxn then maxn:=a[ord(w[i])];
? ? ? ? ? ? if a[ord(w[i])]<=minn then minn:=a[ord(w[i])];
? ? ? ? end;
? ? end;
? ? t:=ss(maxn-minn);
? ? m:=maxn-minn;
? ? if (t=1)and(m>=2) then
? ? begin
? ? ? ? writeln('Lucky Word');
? ? ? ? write(m);
? ? end else
? ? if t<=1 then
? ? begin
? ? ? ? writeln('No Answer');
? ? ? ? write(0);
? ? end;
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500227.html

總結

以上是生活随笔為你收集整理的笨小猴pascal题解的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。