本题需要分段考虑
```cpp
var
s:string;
i,j,k,n:longint;
begin
readln(s);
k:=length(s);
for i:= 1 to k do
case s[i] of
'a','d','g','j','m','p','t','w',' ':n:=n+1;//第一阶段,只需打一次键盘
'b','e','h','k','n','q','u','x':n:=n+2;//第二阶段,需要打两次键盘
'c','f','i','l','o','r','v','y':n:=n+3;//第三阶段,需要打三次键盘
's','z':n:=n+4;//第四阶段,需要打四次键盘
end;
write(n);//将之前所有键盘次数相加,输出次数
end.
```