Huffman的program asdcas;var a:array[0..255,1..2] of longint; st:string; i:longint;begin readln(st); for i:=0 to 255 doa[i,2]:=i; for i:=1 to length(st) doa[ord(st),1]:=a[ord(st),1]+1; for i:=0 to 255 doif a[i,1]0 then writeln(chr(a[i,2]),' ',a[i,1]);end.... |