讨论 / 水题——笨小猴
Marx2002 2016-09-10 22:28:03
点我顶贴 收藏 删除
var s:string; c:char; i,maxn,minn:longint; a:array ['a'..'z'] of longint;

function zs(x:longint):longint;

var i:longint;

begin

zs:=0;

for i:=2 to trunc(sqrt(x)) do

if x mod i=0 then begin zs:=1; break; end;

if x<=1 then zs:=1;

end;

begin

readln(s);

for i:=1 to length(s) do

inc(a[s[i]]);

maxn:=-1;

minn:=101;

for c:='a' to 'z' do

begin

if (a[c]>0) and (a[c]>maxn) then maxn:=a[c];

if (a[c]>0) and (a[c]<minn) then minn:=a[c];

end;

if zs(maxn-minn)=0 then

begin writeln('Lucky Word'); write(maxn-minn); end else

begin writeln('No Answer'); write(0); end;

end.

查看更多回复
提交回复