/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/string1.pas
33 строки
380 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
procedure Test; var s : string := 'abc'; begin assert(s='abc'); end; procedure Test2; var s : string := 'abc'; procedure Nested; var s1 : string := 'efg'; procedure Nested2; begin assert(s1='efg'); assert(s='abc'); end; begin assert(s='abc'); assert(s1='efg'); Nested2; end; begin assert(s='abc'); Nested; end; var s : string := 'abc'; begin assert(s='abc'); Test; Test2; end.