fork download 
  1. program L;
  2. const MAXN=200000;
  3. var n,i:Longint;
  4.     s:Ansistring;
  5.     lettere:array[1..MAXN] of Longint;
  6.     c, ans:char;
  7. begin
  8. 	Readln(n);
  9. 	Readln(s);
  10. 	for i:=0 to n do lettere[i]:=0;
  11. 	for i:=1 to n do begin c:=S[i]; lettere[ord(c)-96]:=lettere[ord(c)-96]+1; end ;
  12. 	for i:=1 to 26 do begin if lettere[i] mod 2 <>0 then ans:=chr(i+96);end;
  13. 	writeln (ans);
  14.  
  15. end.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin 
9
aassaaass
stdout 
a
https://ideone.com/LkLB1u
language:
Pascal (fpc 3.0.4)
created:
6 days ago
visibility:
public

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!