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.