2015-12-28 14:25:15 +03:00
|
|
|
// Строки. Процедура SetLength, функция Length и свойство Length
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
var s: string;
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
writeln('Length(s) = ',Length(s));
|
|
|
|
|
SetLength(s,3);
|
|
|
|
|
s[1] := 'N';
|
|
|
|
|
s[2] := 'E';
|
|
|
|
|
s[3] := 'T';
|
|
|
|
|
writeln(s,' Length(s) = ',Length(s));
|
|
|
|
|
for var i:= 1 to s.Length do
|
|
|
|
|
write(s[i],' ');
|
|
|
|
|
end.
|
