Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Работа со строками - преобразование, ... удаляем нечётные символы |
| NEFFboy |
 
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация:  0   |
Кто поможет решить задачу на Delphi, буду очень благодарен:
Дана строка. Преобразовать ее, удалив каждый нечетный символ * и повторив каждый символ, предшествующий *. З.Ы. Строки можно брать и .txt файла или вводить самому, через Write и Read. -------------------- не дня без строчки кода.
|
   |
 
|
NEFFboy Работа со строками - преобразование 11.05.2007 10:48
Адель удаление:
readln(s);
k:=0;
i:=0;
while i… 11.05.2007 12:58
NEFFboy
не надо здесь про делфи
не путай Turbo Pascal и … 15.05.2007 19:27 hardcase
function Asterisk(const s: string): string;
var i… 11.05.2007 21:30 Tan Адель, если создать в Delphi консольное приложение… 11.05.2007 22:02 volvo Можно... Только не в этом разделе... Здесь это буд… 11.05.2007 22:18 NEFFboy Адель, я имел ввиду:
write ('Введите строку: … 11.05.2007 22:21 Ozzя NEFFboy
Delphi, начиная с версии 7 - язык отдельны… 15.05.2007 19:30  |
|
Текстовая версия | 18.12.2025 8:34 |
