897701029 2008-11-01 06:22:00
点我顶贴
收藏
删除
var
i,m,la:longint；
s,ss:string；
begin
readln(s)；
la:=length(s)；
m:=0；
for i:=1 to la do
begin
case s[i] of
’a’,’d’,’g’,’j’,’m’,’p’,’t’,’w’,’ ’: inc(m)；
’b’,’e’,’h’,’k’,’n’,’q’,’u’,’x’:m:=m+2；
’c’,’f’,’i’,’l’,’o’,’r’,’y’,’v’:m:=m+3；
’s’,’z’:m:=m+4；
end；
end；
writeln(m)；
end.