/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/stringelem3.pas
12 строк
175 B
Ivan Bondarev
tests for #1328
04 июл 2021, 11:49
04 июл 2021, 11:49
fcfab57
Код
Авторство
О чём код?
procedure p1(var ch: char) := ch := '_'; begin var s := '123'; var s1 := s; var s2 := '123'; p1(s1[2]); Assert(s<>s1); Assert(s2<>s1); assert(s1='1_3'); end.