fork(569) download
copy 
  1. Program Affich_sans_redondance;
  2. Var T : Array [1..20] of Char;
  3. n, i, j : Integer;
  4. Begin 
  5. Repeat
  6. Writeln('Donner un entier');
  7. Readln(n);
  8. Until n in [3..20] ;
  9. For i:=1 To n Do Repeat
  10. Writeln('Saisir la case d''ordre ', i);
  11. Readln(T[i]);
  12. Until upcase(T[i]) in ['A'..'Z'] ;
  13. For i:=1 To 20 Do Writeln (T[i], ' ');
  14. Writeln;
  15. Writeln;
  16. Writeln(T[1], ' ');
  17. For i:=2 To 20 Do 
  18. Begin
  19. j:=i;
  20. While (j>2) and (T[i]<>T[j-1]) Do j:=j-1;
  21. If T[i] <>T[j-1] Then Write (T[i], ' ');
  22. End;
  23. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
4
a
b
a
c
stdout
copy 
Donner un entier
Saisir la case d'ordre 1
Saisir la case d'ordre 2
Saisir la case d'ordre 3
Saisir la case d'ordre 4
a 
b 
a 
c 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 


a 
b c
https://ideone.com/xvzPmX
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!