fork(16) download
copy 
  1. Program Touche;
  2. Var c : Char;
  3. nature : String;
  4. Begin
  5. Writeln('Taper sur une touche');
  6. Readln(c);
  7. Case c of
  8. 'a'..'z','A'..'Z' : IF UPCASE(c) in ['A','E','I','U','O','Y']
  9. Then nature := 'Voyelle'
  10. Else nature := 'Consonne';
  11. '0'..'9' : nature := 'Chiffre';
  12. Else nature := 'Symbole';
  13. End;
  14. Writeln(nature);
  15. End.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
5
stdout
copy 
Taper sur une touche
Chiffre
https://ideone.com/ZTvoWf
language:
Pascal (fpc 3.0.4)
created:
7 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!