Завдання. Type State = (Britain, Usa, France, Sweden, Ukrainia, Belorussia, Russia, Iraq);

1. Дано

Type State = (Britain, Usa, France, Sweden, Ukrainia, Belorussia, Russia, Iraq);

Senior=(Queen, King, President, Premier);

За назвою країни вказати титул голови держави.

2. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Day=1..31; Number=1..365;

Var n: Number; d: Day; m: Month;

За номером n деякого дня невисокосного року визначити його дату d, m.

3. Дано

Type Karta = (Six,Seven,Eight,Nine,Ten,Junior,Dame,King,As);

Var K1, K2, K3: Karta; S: Byte;

Враховуючи, що за вибрані карти нараховують такі бали: Six – 6, Seven – 7, Eight – 8, Nine – 9, Ten – 10, Junior – 2, Dame – 3, King – 4, As – 11, визначити суму балів в трьох заданих картах.

4. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Day=1..31;

Var d: Day; m: Month;

Вважаючи, що в лютому 28 днів, визначити, чи існує дата, що вводиться з клавіатури.

5. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Day=1..31; Year=0..MaxInt;

Var y: Year; d: Day; m: Month;

За назвою місяця m і року y визначити кількість днів d в місяці.

6. Дано

Type Unit = (Millimetre,Centimetre,Decimetre,Metre,Kilometre);

Var U: Unit; G, L: Real;

Довжину L, задану в метрах, виразити як кількість G в заданих одиницях вимірювання U.

7. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Day=1..31;

Var D_New, D_Old: Day; M_New, M_Old: Month;

За введеною датою D_New, M_New визначити дату попереднього дня для високосного року.

8. Дано

Type State = (Germany,Cuba,Laos,Nepal,Poland,Egupt,Italy);

Continent = (Asia,Africa,America,Europe);

Var S: State; C: Continent;

За S – назвою країни визначити С – назву відповідного континенту і вивести її на екран.

9. Дано

Type Unit = (Millimetre,Centimetre,Decimetre,Metre,Kilometre);

Length = 0..9999;

Var U: Unit; X: Length;

За наіменуванням величини U та її величині X виразити її значення в міліметрах.

10. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Day=1..31; Year=1901..2001;

Var Y, Y1: Year; D, D1: Day; M, M1: Month;

За датою D, M, Y визначити D1, M1, Y1 – дату наступного дня.

11. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Var M: Month; D=1..31; Y=1901..2001; T: Boolean;

Змінній T присвоїти значення True, якщо трійка D, M, Y утворює правильну дату і значення False – інакше.

12. Дано

Type Month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

Day = (Ned,Pon,Vivt,Ser,Chet,Ptn,Sub);

Var N: 1..31; K: 0..12; M: Month; Wd, Wd1: Day;

Враховуючи, що рік високосний і перше січня припадає на день тижня Wd1, визначити K - кількість понеділків в році, що припадає на 13 число.

13. Дано

Type Name = (John,Mary,Eve,Robert,Elizabeth,Bill,Ann);

Sex = (Male,Female);

Var N: Name; S: Sex;

За введеним іменем визначити стать людини.

14. Дано

Type Nota = (Do,Re,Mi,Fa,Sol,La,Si);

Interval = (Secunda,Tercia,Qurta,Qinta,Secsta,Septima);

Var N1, N2: Nota; I: Interval;

Визначити I – інтервал, утворений нотами N1, N2 (N1<>N2). Секунда – це інтервал між двома сосідніми нотами, терція – інтервал через ноту і т.д.