Проверяем первый символ строки. Если это пробел, то удаляем его. После чего следующий символ становится первым.
Var s: string;
i: integer;
Begin
Readln(s);
While s[1]=' ' do Delete(s,1,1);
Writeln(s);
End.
Убрать из строки пробелы в конце строки.
Проверяем последний символ и, если он «пробел», удаляем его.
Var s: string;
i: integer;
Begin
Readln(s);
{между апострофами один пробел}
While s [length(s)]=' ' do Delete(s,length(s),1);
Writeln(s);
End.
Убрать из строки все пробелы.
Пока в строке есть пробелы, функция Pos будет возвращать позицию (номер) пробела, если пробелов нет, то ноль. Функция Delete удаляет пробел в этой позиции.
Var s: string;
Begin
Readln(s);
While Pos (' ', s)<>0 do
{между апострофами один пробел}
Delete(s, Pos(' ',s),1);
Writeln(s);
End.
Убрать из строки «лишние» пробелы.
Ищем в строке два соседних пробела и удаляем один из них.
Var s: string;
Begin
Readln (s);
While pos (' ', s)<>0 do
{между апострофами два пробела}
Delete(s, pos(' ',s),1);
Writeln (s);
Readln
End.
Подсчитать количество цифр в натуральном числе.
Вспомните как умно и красиво мы решали эту задачу с использованием операций mod и div. Теперь преобразуем число в строку и определим ее длину. И все!
Var x: integer;
s: string;
Begin
readln (x);
Str(x, s);
Writeln (Length (s));
Readln
End.
