fork(30) download
copy 
  1. Program Occurence_car;
  2. Var ch : String;
  3. i, j, n : Integer;
  4. Begin
  5. Writeln ('Saisir une chaîne');
  6. Readln (ch);
  7. For i:=1 To Length (ch) Do
  8. Begin 
  9. n:=0;
  10. For j:=1 To Length (ch) Do
  11. If ch[i]=ch[j] Then n:=n+1;
  12. If i = POS (ch[i], ch) Then Writeln ('Occurrence de ', ch[i], ' = ', n);
  13. End;
  14. End.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
baccc
stdout
copy 
Saisir une chaîne
Occurrence de b = 1
Occurrence de a = 1
Occurrence de c = 3
https://ideone.com/3u5lhi
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!