11 lines
305 B
ObjectPascal
11 lines
305 B
ObjectPascal
// Стандартные функции Ord и Chr
|
||
|
||
begin
|
||
var c := 'z';
|
||
var i := Ord(c);
|
||
Println($'Код символа {c} в кодировке Unicode равен {i}');
|
||
i := 1025;
|
||
c := Chr(i);
|
||
Println($'Символ с кодом {i} в кодировке Unicode - это {c}');
|
||
end.
|