哪位高手能解这道难题啊！

推荐回答

var st:string; ch:char; a:array[1..50]of integer; c:array[1..50]of char; i,j,f,max,maxi,count:integer;begin readln(st); count:=0; fillchar(a,sizeof(a),0); for i:=1 to length(st) do begin ch:=st[i];f:=0; for j:=1 to count do if c[j]=ch then begin inc(a[j]);f:=1;break;end; if f=0 then begin inc(count); c[count]:=ch; a[count]:=1; end; end; max:=0;maxi:=0; for i:=1 to count do if a[i]>max then max:=a[i];maxi:=i; writeln(c[maxi]);end.