用pascal输出：2006年的手机的键盘是这样的： 要按出英文字母就必须要按数字键多下。例如要按出 x 就得按 9 两下，第一下会出现 w，而第二下会把 w 变成 x。0 键按一下会出一个空格。 你的任务是读取若干句只包含英文小写字母和空格的句子，求出要在手机上打出这个句子至少需要按多少下键盘。 输入 一行句子，只包含英文小写字母和空格，且不超过 200 个字符。 输出 一行一个整数，表示按键盘的总次数。 样例输入 复制 i have a dream 样例输出 复制 23

```pascal program MobileKeyboard; var sentence: string; i, count: integer; begin readln(sentence); count := 0; for i := 1 to length(sentence) do begin case sentence[i] of 'a': count := count + 1; 'b': count := count + 2; 'c': count := count + 3; 'd': count := count + 1; 'e': count := count + 2; 'f': count := count + 3; 'g': count := count + 1; 'h': count := count + 2; 'i': count := count + 3; 'j': count := count + 1; 'k': count := count + 2; 'l': count := count + 3; 'm': count := count + 1; 'n': count := count + 2; 'o': count := count + 3; 'p': count := count + 1; 'q': count := count + 2; 'r': count := count + 3; 's': count := count + 4; 't': count := count + 1; 'u': count := count + 2; 'v': count := count + 3; 'w': count := count + 1; 'x': count := count + 2; 'y': count := count + 3; 'z': count := count + 4; ' ': count := count + 1; end; end; writeln(count); end. ``` [2025-12-14 20:15:10 | AI问答 | 369点数解答]