/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_proc_func_2.pas
20 строк
233 B
Mikhalkovich Stanislav
fix #1744
23 июн 2019, 14:43
23 июн 2019, 14:43
06a053a
Код
Авторство
О чём код?
procedure p1(p: procedure); begin Assert(1=2) //write('procedure') end; procedure p1(f: ()->integer); begin Assert(1=1) //write('function') end; begin p1( function-> begin Result := 1; end ) end.