Question

Составьте программу, позволяющую удвоить все буквы "a" в строке. PascalABC

Answer 1

program DoubleA;

var

 S: string; // строка

 i: integer;

begin

 writeln('Введите строку S:');

 readln(S);

 i := 1;

 while i <= length(S) do

 begin

   if S[i] = 'a' then

   begin

     // удваиваем букву a

     insert('a', S, i);

     i := i + 2;

   end

   else

   begin

     // переходим к следующему символу

     i := i + 1;

   end;

 end;

 writeln('Строка S с удвоенными буквами a:');

 writeln(S);

end.