2. Напишите программу, которая будет для любой нажатой клавиши, генерирующей один символ, выдавать ее символьный код (номер). На экране должен быть как нажатый символ, так и его код. Программа заканчивает свою работу тогда, когда какой-либо символ был введен два раза подряд (код последнего символа второй раз не выводится).
Пример диалога программы:
A
65
1
49
1
| Пример входных данных | Пример выходных данных |
A 1 | 65 49 |
| Пример входных данных | Пример выходных данных |
| 2A | 42 |
a
ab
abc
abcd
— и т.д. до строки, заканчивающейся символом “z”.
5. Определите, сколько раз в последовательности символов, заканчивающейся точкой, встречаются цифры и сколько — латинские буквы.
На вход программе подается последовательность символов. Признаком окончания последовательности служит точка. Выведите два натуральных числа: количество цифр в последовательности и количество латинских букв.
| Пример входных данных | Пример выходных данных |
| 2A+erG23SDdR. | 3 8 |
На вход программе подается последовательность слов, разделенных запятыми. Последовательность заканчивается точкой. Выведите количество слов этой последовательности, начинающихся с буквы “a” (как строчной, так и заглавной).
| Пример входных данных | Пример выходных данных |
| A,erG,adR. | 2 |
Мне k лет
Учтите, что при некоторых значениях k слово лет надо заменить на слово год или года. В программе обязательно использовать оператор case. Фразу надо выводить в кодировке Windows-1251. Соблюдайте регистр при выводе символов и разделяйте слова ровно одним пробелом.
| Пример входных данных | Пример выходных данных |
| 15 | Мне 15 лет |
| 21 | Мне 21 год |
| Пример входных данных | Пример выходных данных |
| 7*8 | 56 |
type
direction = (north, east, south, west);
curs = (forwrd,left,right,back);
var
k1,k2: direction;
p: curs;
n: integer;
begin
write('Введите номер направления корабля','(0-север, 1-восток, 2-юг, 3-запад) =>');
readln(n);
k1:=direction(n);
write('Введите номер изменения курса','(0-прямо, 1-налево, 2-направо, 3-назад) =>');
readln(n);
p:=curs(n);
...
writeln('Новый курс ',ord(k2));
end.
Корабль шел по курсу k1 (тип direction), ему был дан приказ p (тип curs). Определить значение курса (тип direction), которое получит корабль в результате выполнения приказа.
Замените многоточие на операторы, решающие описанную задачу.
Задачу следует решать путем непосредственных операций над переменными перечислимого типа без использования их числовых аналогов. При использовании вложенных операторов case подумайте, какой из них сделать внешним, а какой — внутренним.
| Пример входных данных | Пример выходных данных |
| 2 0 | 0 |
| 0 2 |
Указание. Переберите последовательно все тринадцатые числа двадцатого века, для каждого такого числа определяя его день недели через день недели предыдущего тринадцатого числа. Для учета числа дней в месяце используйте оператор case.

