題意

找出在單詞里出現(xiàn)最多的單詞的次數(shù)，再找出在單詞里出現(xiàn)最少的單詞的次數(shù)，最多和最少的次數(shù)相減，如果結(jié)果是素數(shù)，

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

分析

假設(shè)maxn是單詞中出現(xiàn)次數(shù)最多的字母的出現(xiàn)次數(shù)，minn是單詞中出現(xiàn)次數(shù)最少的字母的出現(xiàn)次數(shù)，如果maxn-minn是一個質(zhì)數(shù)，那么笨小猴就認(rèn)為這是個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.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500227.html

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。