![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Заблокирован
Регистрация: 18.12.2009
Сообщений: 4
|
![]()
1 Поменять местами первое и последнее слово каждой строки. Слова разделяются пробелами.
2 . Удалить из текста все односимвольные слова и пробелы, следующие за ними. Вывести удаленные слова. 3 Во всех словах, которые состоят только из строчных латинских букв, заменить эти буквы прописными. Помогите пожалуйста!!!! |
![]() |
![]() |
![]() |
#2 |
Программист
Пользователь
Регистрация: 12.10.2009
Сообщений: 77
|
![]() Код:
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 17.12.2009
Сообщений: 74
|
![]()
Задача 2
program 1_simvol; var s : string; i : longint; begin readln(s); i := 1; while i <= length(s) do begin if ((s[i] in ['a'..'z']) and (s[i+1] = ' ')) or ((s[i] in ['A'..'Z']) and (s[i+1] = ' ')) then delete(s,i,2); else inc(i); end; write(s); end. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файлы. Паскаль | Mariya0202 | Помощь студентам | 4 | 15.10.2009 18:34 |
файлы. Паскаль. | Defa4ka | Помощь студентам | 2 | 14.05.2009 11:59 |
Паскаль. Файлы | playboy | Помощь студентам | 9 | 24.03.2009 13:42 |
Файлы!Паскаль | ТРОЯН=) | Помощь студентам | 1 | 23.03.2009 10:08 |