fork(1) download 
  1. program teste_ja_perdi_a_conta;
  2.  
  3. var a, b, d, e, f, g, h : char;
  4.     s : string;
  5.  
  6. begin
  7.     write('Introduza coisas: ');
  8.     read(a);
  9.     read(b);
  10.     read(d);
  11.     read(e);
  12.     read(f);
  13.     read(g);
  14.     read(h);
  15.     readln(s);
  16.     writeln;
  17.     writeln('O que li, por ordem:');
  18.     writeln('   a = #', ord(a):3, ' aka ''', a, '''');
  19.     writeln('   b = #', ord(b):3, ' aka ''', b, '''');
  20.     writeln('   d = #', ord(d):3, ' aka ''', d, '''');
  21.     writeln('   e = #', ord(e):3, ' aka ''', e, '''');
  22.     writeln('   f = #', ord(f):3, ' aka ''', f, '''');
  23.     writeln('   g = #', ord(g):3, ' aka ''', g, '''');
  24.     writeln('   h = #', ord(h):3, ' aka ''', h, '''');
  25.     writeln;
  26.     writeln('O que sobrou:');
  27.     for a in s do
  28.         writeln('   #', ord(a):3, ' aka ''', a, '''');
  29.     writeln;
  30.     write('FIM.');
  31.     readln;
  32. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
stdout 
Introduza coisas: 
O que li, por ordem:
   a = # 10 aka '
'
   b = # 10 aka '
'
   d = # 10 aka '
'
   e = # 10 aka '
'
   f = # 10 aka '
'
   g = # 10 aka '
'
   h = # 10 aka '
'

O que sobrou:

FIM.
https://ideone.com/mxLkBE
language:
Pascal (fpc 3.0.4)
created:
11 years 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!