波莱罗 2011-09-10 03:08:00
点我顶贴
收藏
删除
Program syw0019;
var s,ii:integer; str:string;
begin
read(str); s:=0;
for ii:=1 to length(str) do
case str[ii] of
'a':s:=s+1;
'b':s:=s+2;
'c':s:=s+3;
'd':s:=s+1;
'e':s:=s+2;
'f':s:=s+3;
'g':s:=s+1;
'h':s:=s+2;
'i':s:=s+3;
'j':s:=s+1;
'k':s:=s+2;
'l':s:=s+3;
'm':s:=s+1;
'n':s:=s+2;
'o':s:=s+3;
'p':s:=s+1;
'q':s:=s+2;
'r':s:=s+3;
's':s:=s+4;
't':s:=s+1;
'u':s:=s+2;
'v':s:=s+3;
'w':s:=s+1;
'x':s:=s+2;
'y':s:=s+3;
'z':s:=s+4;
' ':s:=s+1;
end;
write(s);