👤
a fost răspuns

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

Răspuns :

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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari