Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 56 стр.

    5. Пусть дан фрагмент программы:
    Type День Недели = ( н, вт, ср, чт, пт, сб, вс);
    Опишите множественный тип, включающий в себя мно-
жества из перечисленных ниже элементов: названия любых
дней недели; названия рабочих дней недели.
    6. Какие из следующих описаний не верны и почему?
    Type
    точки = Set Of Real;
    байт = Array [1 .. 8] Of 0 .. 1;
    данные = Set Of байт;
    месяц = (янв, фев, мар, апр, май. июн, июл, авг, сен, окт,
ноя, дек);
    Ml = Set Of set of месяц;
    М2 = Set Of июн .. авг;
    МЗ = Set Of дек .. фев;
    М4 = Set Of (июн, июл, авг);
    7. Вычислить следующие выражения:
    [5] < = [1 .. 3];
    ['W' .. 'D', 'K' .. 'M'] + ['D', 'K'];
    [Москва, Ленинград, Сочи] * [Сочи];
    [7, 1, 3 .. 6] = [1 .. 7];
    15 In [1 .. 10];
    [6] <> [6, 6, 6];
    ['1', '8'] = ['8', '1'];
    [6, 7, 8] = [6 .. 8];
    [1, 7] <= [1 .. 9];
    [2, 5 . 8] <= [1 .. 6, 9];
    'g' In ['а' ..'z'];
    Trunc (6.7) In [1, 5, 6];
    Odd (8) In [ ];
    8. Эквивалентны ли выражения:
    р In [6, 7, 35] и (р = 6) Or (р = 7) Oг (р = 35);
    p In [2 .. 57] и ( р >= 2 ) and (р <= 57);
    9. Вычислить выражение:
    [1 .. 14] * [5, 12 .. 60] + [4 .. 7] – [2 .. 16] * [6];
    10. Упростить данные выражения множественного типа:
    [11 .. 17] * [2] + [7, 17 .. 40] * [2 .. 8];
    (А – В) * А + (А – В) * В;
                             56