Question

Составьте программу которая позволяет ввести строкe s, затем после каждой буквы "а" вставляет пробел. Pascal ABC

Answer 1

var

 s: string; // строка, в которой будем вставлять пробелы

 i: integer; // счетчик цикла

begin

 // ввод строки

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

 readln(s);

 

 // цикл по всем символам строки

 for i := 1 to length(s) do

 begin

   // если текущий символ равен "а", то вставляем пробел перед ним

   if s[i] = 'а' then

   begin

     Insert(' ', s, i);

     // увеличиваем счетчик цикла, чтобы учесть, что строка увеличилась на один символ

     Inc(i);

   end;

 end;

 

 // вывод результата

 writeln('Результат: ', s);

end.