Question

Sa se elaboreze un program pascal care determina numarul de aparitii ale caracterului ,,B'' intr-un sir.

Answer 1

Program prog;
uses crt;
var s:string; i,k:integer;
begin
clrscr;
writeln('Introdu sirul ');
readln(s);
for i:=1 to lenghth(s) do
if s[i]='b' then k:=k+1;
writeln('Caracterul b apare de ',k,' ori');
readkey;
end.