Удалить пробелы в начале строки на Pascal

      Комментарии к записи Удалить пробелы в начале строки на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Удалить пробелы в начале строки на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 1 месяц, 4 нед. назад.

  • Автор
    Сообщения
  • #3787

    Пользователь вводит строку, если в начале этой строки присутствуют пробелы, то программа удаляет их.

    Решение:

    program characters_and_strings_7;
    uses crt;
    var
      s: string;
      i, n: integer;
    begin
      i:=0;
      write('Введите строку > '); read(s);
      while s[i+1]=' ' do i:=i+1;
      delete(s, 1, i);
      write(s);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.