Question

Elabora-ti un program care substituie silabele 'MA' prin silaba 'TA'.

Answer 1

Program MMA;
 var S: string; i: integer;
 
begin
 write ('Introduceti textul: ');
 readln (S);
 
for i:=1 to length(S) do
    if (S[i]='M') and (S[i+1]='A') then S[i]:='T';
 
writeln (S);
  readln;
     end.