讨论 / 考前做一道简单点的题
探机 2013-11-06 16:03:03
点我顶贴 收藏 删除
program monkey;

const shu:array[1..25] of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);

var a:string;

e:array['a'..'z'] of integer;

b,c,d:integer;f,g:char;

ma,mi:integer;

function make(d:integer):boolean;

var i:integer;

begin

make:=false;

for i:=1 to 25 do

if d=shu[i] then

begin

make:=true;

exit;end;

end;

function max(a:integer;b:integer):integer;

begin if a>b then max:=a else max:=b;

end;

function min(a:integer;b:integer):integer;

begin if a>b then min:=b else min:=a;

end;

begin

read(a);

c:=length(a);

for f:='a' to 'z' do e[f]:=0;

for b:=1 to c do

begin g:=lowercase(a[b]);

inc(e[g]);

end;

ma:=0;mi:=0;

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

begin ma:=max(ma,e[f]);

if mi=0 then mi:=e[f]

else if e[f]<>0 then

mi:=min(mi,e[f]);

end;

ma:=ma-mi;

if make(ma) then

begin writeln('Luncy Word');

writeln(ma);

end

else begin writeln('No Answer');

writeln(0);

end;

readln;readln;

end.

查看更多回复
提交回复