fork(9) download
copy 
  1. Program Renverser_ch;
  2. Var p : Integer;
  3. chr, chd : String;
  4. Begin
  5. Writeln ('Saisir une phrase');
  6. Readln (chd) ;
  7. chr := '';
  8. p := POS(' ', chd);
  9. While p <> 0 Do
  10. Begin
  11. chr := ' ' + COPY (chd, 1, p-1) + chr;
  12. DELETE (chd, 1, p);
  13. p := POS (' ', chd);
  14. End;
  15. chr := chd + chr;
  16. Writeln ('Phrase renversée est : ', chr);
  17. End.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
je suis  en bac info
stdout
copy 
Saisir une phrase
Phrase renversée est :  info bac en  suis je
https://ideone.com/IuYLJk
language:
Pascal (fpc 3.0.4)
created:
9 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!