Решаем задачи Абрамян на Паскале. Param60

Param60. Используя тип TDate и функцию LeaP_Year (см. задание Param59), описать функцию DaysInMonth($$D$$) целого типа с параметром типа TDate, которая возвращает количество дней для месяца, указанного в дате $$D$$. Вывести значение функции DaysInMonth для пяти данных дат (предполагается, что все даты являются правильными).

Решаем задачи Абрамян на Паскале. Pointer33

Pointer33. Дано число $$D$$ и указатель $$P_0$$ на один из элементов непустого двусвязного списка. Вставить перед данным элементом списка новый элемент со значением $$D$$ и вывести указатель на добавленный элемент списка.

Решаем задачи Абрамян на Паскале. Param59

Param59. Описать тип TDate — запись с полями целого типа Day (день), Month (месяц) и Year (год) — и функцию LeaP_Year($$D$$) логического типа с параметром типа TDate, которая возвращает True, если год в дате $$D$$ является високосным, и False в противном случае. Вывести значение функции LeaP_Year для пяти данных дат (предполагается, что все даты являются …

Решаем задачи Абрамян на Паскале. Pointer32

Pointer32. Даны числа $$D_1$$ и $$D_2$$ и указатель $$P_0$$ на один из элементов непустого двусвязного списка. Добавить в начало списка новый элемент со значением $$D_1$$, а в конец — новый элемент со значением $$D_2$$. Вывести адреса первого и последнего элементов полученного списка.

Решаем задачи Абрамян на Паскале. Pointer31

Pointer31. Дан указатель $$P_0$$ на один из элементов непустого двусвязного списка. Вывести число $$N$$ — количество элементов в списке, а также указатели $$P_1$$ и $$P_2$$ на первый и последний элементы списка.