/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
3.0
TestSamples/CompilationSamples/case_test.pas
16 строк
253 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
var k : integer; begin k:= 77; case k of 1..4: writeln(3); 5..8, 26,55,77,89 : writeln(2); 10..14 : writeln(1); else writeln(0); end; k := 112; case k of 1, 12, 17, 23, 47 : writeln(1); 3,6,26,55,77,89 : writeln(2); 0,52,112,212 : writeln(3); end; end.