Alcătuieşte un program Pascal care calculează numarul de apariţii a caracterului „i” in sirul Institutionalizare.

Răspuns:

program contor;

var c:char; s:string; n, i:integer;

begin

 write('introdu sir de caractere: '); read(s);

 write('ce caracter cautam in el: '); read(c);

 n:=0;

 for i:=1 to length(s) do

   if s[i]=c then inc(n);

 writeln(n,' aparitii');

end.

Explicație:

programul e genera;izat pentru orice sir de caractere si orice caracter ce se cauta