8 lines
156 B
ObjectPascal
8 lines
156 B
ObjectPascal
|
var s:='ф';
|
|||
|
|
begin
|
|||
|
|
writeln(Ord(s));
|
|||
|
|
writeln(OrdUnicode(s));
|
|||
|
|
writeln(Chr(Ord(s)));
|
|||
|
|
writeln(ChrUnicode(OrdUnicode(s)));
|
|||
|
|
writeln(integer(s));
|
|||
|
|
end.
|