Задать вопрос Регистрация
Помочь другим

  • Помогите пожалуйста. Напишите программу на языке 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years