/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates24.pas
12 строк
297 B
Ivan Bondarev
fix #2976
01 апр 2024, 13:31
01 апр 2024, 13:31
ba0b0f8
Код
Авторство
О чём код?
begin var i := 0; //Ошибка: Неизвестное имя 'procedure()' var d: procedure(p: procedure); // Если убрать присваивание, ошибка выше пропадает d := p -> begin p; end; d(() -> begin Inc(i) end); assert(i = 1); end.