Вопрос жизни и смерит.Помогите пожалуйста решить задачу на типы данных(я совсем не понимаю,как с ними работать) Дано:
type
число = 1..31;
месяц = 1..12;
год = 1..2000;
дата = record
ч : число;
м : месяц;
г : год
end;
ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);
Считая, что все даты даются по григорианскому календарю (по «новому стилю»), описать:функцию Пятница13(d), которая определяет количество дней до даты d, которые были пятницами 13-ого числа.
45 страница , задание 6.5
type
число = 1..31;
месяц = 1..12;
год = 1..2000;
дата = record
ч : число;
м : месяц;
г : год
end;
ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);
Считая, что все даты даются по григорианскому календарю (по «новому стилю»), описать:функцию Пятница13(d), которая определяет количество дней до даты d, которые были пятницами 13-ого числа.
45 страница , задание 6.5
More Questions From This User See All