Пользователь вводит строку, если в начале этой строки присутствуют пробелы, то программа удаляет их.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 |
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. |