14 lines
289 B
ObjectPascal
14 lines
289 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SetLength, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Length <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Length
|
|||
|
|
|
|||
|
|
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.
|