fork download
copy 
  1. program test;
  2.  
  3.  var rc:string[10];
  4.  var irc: Array [1..10] of Integer;
  5.  var i:Integer;
  6.  
  7.  begin
  8.       readln(rc);
  9.       for i := 1 to 10 do begin
  10.            irc[i] := Ord(rc[i])-48;
  11.            writeln(irc[i]);
  12.       end;
  13.  end.
Success #stdin #stdout 0.02s 252KB
comments (?)
stdin
copy 
8807147455
stdout
copy 
8
8
0
7
1
4
7
4
5
5
https://ideone.com/Z5hiT
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
secret

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!