type
число = 1..31;
месяц = (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек);
день_недели = (вс, пн, вт, ср, чт, пт, сб);
var
d:число;
m:мечяц;
wd1, wd:день_недели;
k:0..12;
[Pascal]Перечислимый тип данных
Дан фрагмент:
Считая, что год високосный и его 1 января приходится на день недели wd1, определите:
wd - день недели, на который приходиться день с датой d, m.
Код:
Считая, что год високосный и его 1 января приходится на день недели wd1, определите:
wd - день недели, на который приходиться день с датой d, m.