/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates19.pas
17 строк
169 B
Ivan Bondarev
#2675
03 июл 2022, 13:19
03 июл 2022, 13:19
539a689
Код
Авторство
О чём код?
var i: integer; procedure p1; begin end; procedure p2; begin end; procedure p3(p: procedure); begin i := 1; end; begin p3(true?p1:p2); assert(i = 1); end.