/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/case7.pas
13 строк
139 B
Ivan Bondarev
#2836
09 апр 2023, 13:50
09 апр 2023, 13:50
592ef8f
Код
Авторство
О чём код?
var i: integer; procedure p1(s: string) := case s of else Inc(i); end; begin p1('abc'); p1(''); p1(nil); assert(i = 3); end.