/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/enum9.pas
19 строк
448 B
Ivan Bondarev
#3097
13 авг 2024, 14:49
13 авг 2024, 14:49
e3ee0fe
Код
Авторство
О чём код?
type Days = ( None = 0, // 0 Monday = 1, // 1 Tuesday = 2, // 2 Wednesday = 4, // 4 Thursday = 8, // 8 Friday = 16, // 16 Saturday = 32, // 32 Sunday = 64, // 64 Weekend = Saturday or Sunday ); begin var d : Days := Saturday; var meetingDays := Days.Monday or Days.Friday; assert((d and Days.Weekend) = Saturday); assert((meetingDays and Days.Friday) = Days.Friday); end.