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

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

Помечено: ,

  • В этой теме 0 ответов, 1 участник, последнее обновление 3 года назад сделано Васильев Владимир Сергеевич.
Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #3787
      @admin

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

      Решение:

      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.

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