fork download 
  1. program testOrd(OUTPUT);
  2. var
  3. 	n		:integer;
  4. 	ch		:char;
  5.  
  6. begin
  7.  
  8. 	ch := 'o';
  9. 	n := ord(ch);
  10.  
  11. 	writeln('Ord-код для символа "', ch, '" : ', n);
  12. ;
  13. end.
  14.  
  15.  
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
Ord-код для символа "o" : 111
https://ideone.com/ZK9M5T
language:
Pascal (fpc 3.0.4)
created:
11 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!