/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/07_CharString/String2.pas
14 строк
330 B
Mikhalkovich Stanislav
GCD LCM в PABCSystem
21 окт 2025, 11:40
21 окт 2025, 11:40
c63d812
Код
Авторство
О чём код?
// Строки. Процедура SetLength, функция Length и свойство Length begin var s := ''; Println('Length(s) =', s.Length); SetLength(s, 3); s[1] := 'N'; s[2] := 'E'; s[3] := 'T'; Println(s, ' Length(s) =', s.Length); for var i := 1 to s.Length do Print(s[i]); Println; end.