/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/case1.pas
16 строк
230 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
begin var i := 6; case i of 0..3 : i := 1; 6 : i := 2; 7..10 : i := 3; end; assert(i=2); i := 15; case i of 2,5,1,3 : i := 1; 12,13,14,15,18 : i := 2; 31..40 : i := 3; end; assert(i=2); end.