/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates9.pas
20 строк
205 B
Бондарев Иван
bug fix #347
19 фев 2017, 16:29
19 фев 2017, 16:29
65a2566
Код
Авторство
О чём код?
var a: integer; b: integer; procedure p; begin a := 1; end; procedure q; begin b := 1; end; begin var t := (p, q); t[0]; t[1]; assert(a = 1); assert(b = 1); end.