Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Удалить из строки все пробелы, функция Delete в Паскале.
Первый вариант. Используем цикл for.
begin end — можно убрать перед if s_Str1[i] = ‘ ‘ then

program Task_Str1;

  {задачи на строки паскаль с решением}
  {Удалить из строки все пробелы, функция Delete}
var
  i, n: integer;
  s_Str1: string;
begin
  s_Str1 := 'Зеленный цвет был На    Крышах Домов';
  n := length(s_Str1);
  WriteLn('Строка: ', s_Str1);
  for  i := n downto 1 do
  begin
    if s_Str1[i] = ' ' then
      Delete(s_Str1, i, 1);
  end;

  WriteLn('Строка без пробелов: ', s_Str1);
  ReadLn();
end.

Результат:

Удалить из строки все пробелы, функция Delete в Паскале.

Вариант второй, что бы удалить все пробелы из строки используем цикл while:

program Task_Str2;

  {задачи на строки паскаль с решением}
  {Удалить из строки все пробелы, функция Delete}
  {Цикл  while}
var
  i, n: integer;
  s_Str1: string;
begin
  i := 1;
  s_Str1 := 'Зеленный     цвет Был На    Стенах Домов';
  n := length(s_Str1);
  WriteLn('Строка: ', s_Str1);
  while (i < n) do
  begin
    if s_Str1[i] = ' ' then
    begin
      Delete(s_Str1, i, 1);
      Dec(i);
    end;
    Inc(i);
  end;
  WriteLn('Строка без пробелов: ', s_Str1);
  ReadLn();
end.

Результат:

Удалить все пробелы из строки в Паскале.

Дополнительно:
Удалить из строки повторяющиеся символы паскаль.
Заменить все найденные строки, заданной подстрокой Паскаль.
Найти сумму чисел двухмерного массива, паскаль.
Отфильтровать из строки числа, паскаль.
Скопировать из строки в новую строку без повторяющихся символов, паскаль.