/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/set4.pas
16 строк
205 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
var a : set of byte; b : set of integer; begin a := [1,2]; a += [4]; assert(a=[1,2,4]); a -= [2]; assert(a=[1,4]); a *= [4]; assert(a=[4]); a := [1..5]; b := [2..4]; a *= b; assert(a=[2..4]); end.