16 lines
330 B
ObjectPascal
16 lines
330 B
ObjectPascal
var s: string;
|
|
|
|
begin
|
|
s := 'ABCDEFGH';
|
|
writeln(s.Length);
|
|
writeln(s.ToLower);
|
|
writeln(s.Inverse);
|
|
s := 'красный зеленый синий красный';
|
|
writeln(s.Replace('красный','желтый'));
|
|
|
|
s := '12345';
|
|
var i: integer := s.ToInteger;
|
|
Print(i);
|
|
s := i.ToString;
|
|
Println(s);
|
|
end. |