Question

determina nr total de litere 'a' si 'b' din textul dat (pentru sirul 'abracadabra' , k=7) acesta este un sir cu caractere S. realizati un program pascal
va rog frumos urgentt!!!

Answer 1

Program sirab;
Begin
var S:string;
var i,lung,k:integer;
writeln('Scrieti sirul de lungime:');
readln(S);
lung:=length(S);
k:=0;
for i:=1 to lung do
begin
if (S[i]='a') OR (S[i]='b') then
k:=k+1;
end;
writeln('Nr de caractere a,b:',k);
End.