多叉哈夫曼树

发布网友发布时间：2023-07-16 06:15

共1个回答

热心网友时间：2024-03-23 14:48

var
s:string;
t,i:longint;
begin
t:=0;
readln(s);
for i:=1 to length(s) do
begin
if s[i]='A' then t:=t+1
else if s[i]='B' then t:=t+2
else if s[i]='C' then t:=t+3;
end;
writeln(t);
end.
望采纳！！！来自：求助得到的回答

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com