Выделить в строке символ пробелами слева и справа - Pascal ABC

Формулировка задачи:

Дана стартовая строка. Найти в ней символ, который вводится пользователем с клавиатуры, и отделить этот символ в стартовой строке пробелами слева и справа. Спасибо за внимание!


textual

Код к задаче: «Выделить в строке символ пробелами слева и справа - Pascal ABC»

Var s : string;
    c : char;
    i : integer;
begin
Writeln('Enter string');
Readln(s);
Writeln('Enter char');
Readln(c);
i:=1;
While (i<=length(s)) do
      begin
      If (s[i]=c) then
         begin
         Insert(#32, s, i);
         Insert(#32, s, i+2);
         i:=i+2;
         end else i:=i+1;
      end;
Writeln('New string');
Writeln(s);
Readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.750 из 5

Источник
Похожие ответы