👤
a fost răspuns

Cerinţa:
Să se scrie un program care citește un șir de caractere și afișează litera mică cel mai des întâlnită în șir.

Date de intrare:
Programul citește de la tastatură o un șir de cel mult 255 caractere.

Date de ieşire:
Programul afișează pe ecran litera mică cel mai des întâlnită în șir.

Restricţii şi precizări:
șirul conține litere mari și mici ale alfabetului englez, cifre și spații
dacă șirul conține mai multe litere cu număr maxim de apariții, se va fișa prima în ordine alfabetică

Exemplu

Intrare:
In 12 mergem la munte

Ieșire:
e

Explicație:
Litera e apare în șir de 3 ori. Tot de 3 ori apare și litera m, dar e este prima în ordine alfabetică.

Răspuns :

var

 s:string;
 c:set of char;
 a:array[65..122] of integer;
 max,i:integer;
 r:char;
 
begin

 read(s);

 c:=['A'..'z'];
 
 for i:=1 to length(s) do
  if s[i] in c then
   inc(a[ord(s[i])]);
 
 max:=-1;
  
 for i:=65 to 122 do
  if(a[i]>max) then
  begin
   max:=a[i];
   r:=chr(i);
  end;
   
 write(r);
 
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