fork(17) download
copy 
  1. Program Espace_superflus;
  2. Var ch : String;
  3. i, p : Integer ;
  4. Begin
  5. Writeln ('Donner une chaîne');
  6. Readln (ch);
  7. Repeat
  8. P := POS (' ', ch);
  9. {position de 2 espaces dans ch}
  10. IF p<>0 Then DELETE (ch, p, 1);
  11. Until p=0;
  12. IF ch[1]=' ' Then DELETE (ch, 1, 1);
  13. IF ch[Length(ch)]=' ' Then DELETE (ch, Length (ch), 1);
  14. Writeln ('La chaîne devient : ', ch);
  15. End.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
bac   bac
stdout
copy 
Donner une chaîne
La chaîne devient : bacbac
https://ideone.com/11ugws
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!