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. |