Перечисляемый и диапазонный типы. 6.1. По названию страны (переменная типа Country) присвоить переменной типа Capital название столицы этой страны

6.1. По названию страны (переменная типа Country) присвоить переменной типа Capital название столицы этой страны.

Type

Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, Германия);

Capital = (Вена, София, Афины, Рим, Осло, Париж, Берлин);

6.2. В следующем фрагменте программы по значению переменной Р (русское на­звание языка программирования) присвоить переменной А английское на­звание этого языка.

Var

Р: (Ада, Бейсик, Модула2, Лисп, Паскаль, ПЛ1, Фортран);

А: (ADA, BASIC, MODULA2, LISP, PASCAL, PL1, FORTRAN);

6.3. В следующем фрагменте программы по значению символа-цифры d присво­ить переменной n название этой цифры.

Type

название = (ноль, один, два, три, четыре, пять);

Var

d: '0'..'5';

n: название;

6.4. В следующем фрагменте программы определите i — интервал, образованный нотами nl и n2 (nl ≠ n2), секунда — это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция — интервал через ноту (например, фа и ля, си и ре) и т. д.

Type

нота = (до, ре, ми, фа, соль, ля, си);

интервал = (секунда, терция, кварта, квинта, секста, септима);

Var

nl, n2: нота;

i: интервал;

6.5. В следующем фрагменте программы замените значение переменной х, озна­чающее некоторую длину в единицах р, значением в метрах.

Type

единица = (дециметр, километр, метр, миллиметр, сантиметр);

длина = real;

Var

х: длина;

р: единица;

6.6. В следующем фрагменте программы выведите название цвета, отвечающее значению переменной с.

Type

цвет = (черный, белый, синий);

Var

с: цвет;

6.7. В следующем фрагменте программы введите литеру и присвойте перемен­ной х соответствующее этой литере значение типа letter.

Type

letter = (a, b, с, d);

Var

x: letter;

6.8. Для значений целого числа k от 1 до 99 напечатайте фразу «мне k лет», учи­тывая при этом, что при некоторых значениях k слово «лет» надо заменить словом «год» или «года».

6.9. Для натурального числа k напечатайте фразу «мы нашли k грибов в лесу», согласовав окончание слова «гриб» с числом k.

6.10. Написать программу для подведения итогов чемпионата Италии по футболу среди наиболее вероятных претендентов на победу. Условно будем считать, что чемпионат проходит с сентября по май с новогодними каникулами в январе. Исходными данными являются очки, набранные клубами за каждый месяц первенства. Будем считать, что победитель чемпионата определяется однозначно, т.е. только один клуб набирает максимальное количество очков.