Напишите, пожалуйста, функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел.
Напишите, пожалуйста, функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел.
Гость
Ответ(ы) на вопрос:
Гость function dele (s : string) : string;
var l,i : integer;
begin
l := Length (s);
i := l;
while i>0 do
begin
if (s[i] = ' ') and (i
Не нашли ответ?
Похожие вопросы