/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates12.pas
17 строк
183 B
Бондарев Иван
bug fix #2115
03 окт 2019, 12:04
03 окт 2019, 12:04
1ddc76a
Код
Авторство
О чём код?
procedure p := exit; var i: integer; procedure p1; begin if p = nil then i := 1 else if nil = p then i := -1 else i := 2; end; begin p1; assert(i = 2); end.