14 lines
236 B
ObjectPascal
14 lines
236 B
ObjectPascal
|
{$zerobasedstrings}
|
||
|
|
const
|
||
|
|
n = 3;
|
||
|
|
m = 2;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var s := '0123456789';
|
||
|
|
Writeln(s.Substring(n, m));
|
||
|
|
Writeln(s[n:]);
|
||
|
|
Writeln(s[:^1]);
|
||
|
|
Writeln(s.Substring(s.IndexOf('3'), m));
|
||
|
|
Writeln(s.Substring(s.IndexOf('456'), m));
|
||
|
|
end.
|