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

Узнай цену своей работы

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

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

Решение задачи: «Выделить в строке символ пробелами слева и справа»

textual
Листинг программы
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.

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы