Задачи.

9. Найти сумму цифр данного целого трехзначного числа n.

10. Найти сумму цифр данного целого четырёхзначного числа n.

11. Дано двузначное число n. Получить число m, образованное перестановкой цифр исходного числа n. ( 39  93 ).

12. Дано двузначное целое число n. Получить число m, образованное приписыванием единицы в начале и в конце числа n. ( 65  1651 ).

13. Дано двузначное целое число n. Получить число m, образованное вписыванием цифры единица между цифрами числа n. ( 75  715 ).

14. Дано трёхзначное целое число n. Получить число m, образованное перестановкой цифр сотен и десятков числа n. ( 182  812 ).

15. Дано трёхзначное целое число n. Получить число m заменой на ноль средней цифры числа n. ( 973  903 ).

Символьные типы.

Тип	Размер (в байтах)
ANSIchar	1
Widechar	2
Char	1

Переменные символьного типа предназначены для хранения одного символа. Тип ANSIChar представляет собой так называемые Ansi-символы. Это символы, которые используются в операционных системах семейства Windows. Каждому символу соответствует число – код ANSI, что расшифровывается как American National Standard Institute. Из 256 имеющихся Ansi-символов первые 32 являются служебными, т.е. предназначены не для отображения информации, а для управления отображением информации. Код любого символа можно получить с помощью функции ord(x). Например, ord(Z)=90 ord(z)=122. Тип WideChar предназначен для хранения так называемых Unicode-символов, которые в отличие от Ansi-символов занимают два байта. Это позволяет кодировать символы числами от 0 до 65535. Первые 256 символов в стандарте Unicode совпадают с символами Ansi. Тип Char в Delphi5 эквивалентен типу AnsiChar и обеспечивает наибольшую производительность.

Стандартная функция chr(i) возвращает символ с порядковым номером i. Вместо chr(i) можно использовать оператор #. Например, chr(72) эквивалентно #72.

К значениям символьного типа можно применять операции отношения ( по коду) : < , > , <= , >= , <> , = . Например, z > Z .

Консольное приложение создаётся в операционной системе Windows, а выполняется под управлением операционной системы MS DOS, в которой используется таблица кодировки символов ASCII, отличающаяся от ANSI, начиная с 128 символа. В этой части таблицы находятся русские буквы. Поэтому вывести сообщение на русском языке в консольном приложении не удаётся. ( Для устранения этой проблемы в дальнейшем, накопив достаточно знаний, мы сможем написать функцию для перекодировки символов.)

Пример 3. Даны числа k1, k2, k3 из интервала [97, 122]. Напечатать слово, состоящее из символов с этими номерами.

program p3;

{$APPTYPE CONSOLE}

uses SysUtils;

var k1, k2, k3 : byte; c1, c2, c3 : char;

begin

readln(k1, k2, k3);

c1:=chr(k1); c2:=chr(k2); c3:=chr(k3);

writeln(c1, c2, c3);

readln

end.

После введения чисел 100 111 103 и нажатия клавиши Enter на экран будет выведено слово dog .