TYVJ前38道题题解

【文件属性】：

文件名称：TYVJ前38道题题解

文件大小：774KB

文件格式：DOC

更新时间：2013-11-03 15:25:38

TYVJ前38道题题解

var s:string; i,l,cha,max,min:integer; x:char; panduan:boolean; chance:array['a'..'z']of integer; begin readln(s); l:=length(s); fillchar(chance,sizeof(chance),0); for i:=1 to l do begin x:=s[i]; inc(chance[x]); end; min:=maxint; max:=1; for i:=1 to l do if chance[s[i]]<>0 then begin if chance[s[i]]max then max:=chance[s[i]]; end; cha:=max-min; panduan:=true; if (cHA=1) or (cha=0) THEN PANDUAN:=FALSE; for i:=2to trunc(sqrt(cha))do if cha mod i =0 then panduan:=false; if panduan then begin writeln('Lucky Word');writeln(cha);end else begin writeln('No Answer'); writeln('0'); end; end.