Question

Elaboreaza un program care sa determine numarul de aparitii ale silabei 'MA' intr-un sir.

Answer 1

Program MMA;
 var S: string; i, j: integer;
 
begin
 write ('Introduceti textul: ');
 readln (S);

for i:=1 to length(S) do
  if (S[i]='A') and (S[i-1]='M') then j:=j+1;
 
writeln ('In textul dat silaba MA se repeta de ', j, ' ori.');
  readln;
    end.