По указанию преподавателя выберите индивидуальное задание из нижеприведенного списка. В качестве f(x) использовать по выбору: sh(x), х2; е 
. Отредактируйте вид формы и текст программы, в соответствии с полученным заданием.
1. a= 
2. 
3. 
4. 
7
7. 
8. 
9. 
10. 
11. 
12. 
13. 
14. 
15. r=max(min(f(x),y),z).
16. Известно, что из четырех чисел 
одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n.
17. По номеру n (n>0) некоторого года определить с - номер его столетия (учесть, что, к примеру, началом XX столетия был 1901, а не 1900 год).
18. Значения переменных 
и 
поменять местами так, чтобы оказалось а<=Ь<=с.
19. Дано целое 
от 1 до 180. Определить, какая цифра находится в -й позиции последовательности 10111213…9899, в которой выписаны подряд все двузначные числа.
20. Дано натуральное . Определить k-ю цифру в последовательности 110100100010000100000..., в которой выписаны подряд степени 10.
21. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: green (зеленый), red (красный), yellow (желтый), white (белый) н black (черный). Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год- год зеленой крысы -был началом очередного цикла). Разработать программу, которая вводит номер некоторого года нашей эры и выводит его название по старояпонскому календарю
22. Если сумма трех попарно различных действительных чисел х, у, z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из х и у полусуммой двух оставшихся значений.
23. Для целого числа от 1 до 99 вывести фразу “мне лет”, учитывая при этом, что при некоторых значениях слово “лет” надо заменить на слово “год” или “года”.
24. Для натурального числа вывести фразу “мы выпили бутылок пива”, согласовав слово “бутылка” с числом .
25. type курс = (С, В, Ю, З);{север, восток, юг, запад}
Приказ=(вперед, вправо, назад, влево);
Var k1,k2:курс; ПР:приказ;
Корабль сначала шел по курсу K1, а затем его курс был изменен согласно приказу ПР. Определить K2 –новый курс корабля.
26. type месяц=(январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь);
день=1..31;
vard1, d2: день;
m1,m2:месяц;
t:boolean;
Переменной i присвоить значение 1 если дата dl, ml предшествует (в рамках года) дате d2, m2, и значение 0 в других случаях.
27. type нота=(до, ре, ми, фа, соль, ля, си);
интервал=(секунда, терция, кварта, квинта, секста, септима);
var n1, n2:нота;
i;интервал;
Определить i -тый интервал, образованный нотами n1 и n2(n1 
n2): секунда - это интрвал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция – интервал через ноту (например, фа и ля, си и ре и т. д).
28. type единица=(дециметр, километр, метр, миллиметр, сантиметр);
длина=real;
var x:длина;
p: единица;
Значение переменной х, означающее некоторуюдлину в единицах р, заменить на величину этойже длины в метрах
29. Type сезон =(зима, весна, лето, осень);
I 'ar т:месяц; {определение “месяц” см. в 26}
Определить s-сезон, на который приходится месяц т.
30. Var k:1..9. Вывести значение переменной k римскими цифрами.
Работа 3.
КОНСТРУИРОВАНИЕ ПРОГРАММ
