Question

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

（1）有一天，小明编了一个程序，能很快找出一个字符串中出现次数最多的字符，你能做到吗？
输入：一个字符串（长度不超过50）
输出：按字符在字符串中出现的先后顺序，显示出现次数最多的字符.样例输入：ACABBCCDDB 输出：CB
（2）13x29=377，83x91=7553，这些乘积的数字均为3、5、7组成，输出100之内满足前面条件的所有MXN乘积（M<N），并统计个数。

Answer 1

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.

Answer 2

对于我来说 这无疑太难了