Вопрос по информатике:
Напишите, пожалуйста, функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел.
- 26.11.2017 04:04
- Информатика
- remove_red_eye 11477
- thumb_up 17
Ответы и объяснения 1
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
begin
delete (s,i,1);
i := i -1;
end;
i := i -1;
end;
Result := s;
end;
var
a : string;
begin
readln (a);
writeln (dele(a));
end.
- 27.11.2017 15:37
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.