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

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

Помечено: ,

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

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #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.

Просмотр 1 сообщения - с 1 по 1 (всего 1)

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