牛的速记 题解

奶牛们误解了速记的含义。他们是这样理解的：
给出一个少于250个字母的小写字母串。
找到一个出现次数最多的字母，将该字母从字母串中统统删去，如果出现次数最多的字母不止一个，就删去在字母表中靠前的一个，即序号小的那个，已知a的序号为97，b的序号为98，c的序号为99，以此类推。
然后输出这个字符串。重复上面的操作，直到字符串中没有字符。当然，你不应该输出最后的空串。
虽然他们误解了，但是这却是一个非常好的程序设计想法。用你的程序实现这个过程！

输入格式：
输入文件包含一行，即这个字符串。

样例输入：(short.in)
maryhadalittlelambitsfleecewaswhite

输出格式：
一些连续的字符串(如题目中描述的)，每行一个字符串。

样例输出：(short.out)
mryhdlittlelmbitsfleecewswhite
mryhdlittllmbitsflcwswhit
mryhdittmbitsfcwswhit
mryhdimbisfcwswhi
mryhdmbsfcwswh
mrydmbsfcwsw
rydbsfcwsw
rydbfcww
rydbfc
rydfc
rydf
ryf
ry
y

 

没啥说的，就当锻炼实现能力

 

var i,j,k,m,n,len,max,maxp,l:longint; a:ansistring; re:array[32..255] of integer; begin readln(a); len:=length(a); fillchar(re,sizeof(re),0); l:=len; repeat fillchar(re,sizeof(re),0); for i:=1 to len do begin inc(re[ord(a[i])]); end; max:=0; for i:=122 downto 97 do begin if re[i]>=max then begin max:=re[i]; maxp:=i; end; end; for i:=1 to len do begin if ord(a[i])=maxp then a[i]:=' '; end; dec(l); for i:=1 to len do begin if a[i]<>' ' then write(a[i]); end; writeln; until l=1; end.