Question

Scrieţi un program care citeşte de la tastatură un şir de cel mult 50 de caractere (litere mici şi mari ale alfabetului englez, cifre, puncte, virgule şi spaţii) şi afişează pe ecran cifra care apare de cele mai multe ori în şirul citit.

Date de intrare
Programul citeşte de la tastatură un şir de cel mult 50 de caractere.

Date de ieşire
Programul va afişa pe ecran cifra care apare de cele mai multe ori în şir.

Restricţii şi precizări
dacă şirul conţine mai multe cifre cu număr maxim de apariţii si va afişa cea mai mică
dacă şirul nu conţine cifre se va afişa NU.



Exemplu
Date de intrare

Voi lua 9,5 la matematica 10 la informatica si 10 la romana
Date de ieşire

0

Answer 1

var

 a:array[0..9] of integer;
 cif:set of char;
 s:string;
 i,n,max:integer;
 
begin
 
 read(s);
 cif:=['0'..'9'];
 
 for i:=1 to length(s) do
  if(s[i] in cif) then
   a[ord(s[i])-48]+=1;
   
 for i:=0 to 9 do
  if(a[i]>max) then
   begin
    max:=a[i];
    n:=i;
   end;
 
 if(max=0) then
  writeln('NU') 
 else
  writeln(n);

end.