profile
Опубликовано 4 года назад по предмету Информатика от ker35

Помогите пожалуйста. Напишите программу на языке Pascal, а то я в инфе вообще не рублю(((

Дана строка текста. Слова могут быть разделены несколькими пробелами. Удалить из строки "лишние" пробелы. 
"Лишние" - это пробелы в начале и конце строки, а также более одного пробела между словами. 

  1. Ответ
    Ответ дан Аккаунт удален
    _var  s:string; \
_begin \
_  readln(s); \
_  while  s[1]='  '  do  delete(s,1,1); \
_  while  s[length(s)]='  '  do  delete(s,length(s),1); \
_  while  pos('    ',s)>0  do  delete(s,pos('    ',s),1); \
_  writeln(s); \
_  readln(); \
_end.
Самые новые вопросы