1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| LoveУшка |
20.10.2004 18:38
Сообщение
#1
|
|
Гость |
Вот задачка, чувствую, что элементарная, но с паскалем у меня война((((
Напечатать заданный текст длиной от 1 до 100 символов, удалив из него повторные вхождения каждого символа. Заранее спасибо. Если можно, побыстрее))) |
![]() ![]() |
| GoodWind |
20.10.2004 19:20
Сообщение
#2
|
![]() Автооответчик ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
volvo, молодец ! Слово в слово то, что я собирался постить.
respect -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
LoveУшка Удалить повторяющиеся символы из массива. 20.10.2004 18:38
volvo
var
s: string;
i: byte;
chars: set of char... 20.10.2004 19:09
LoveУшка Большое спасибо! Спасибо! Спасибо! Даж... 20.10.2004 19:32
volvo Вот... Но она менее красива, чем первая... :)
v... 20.10.2004 20:01
LoveУшка Ну а что делать, не все что красивое нужно((((.. С... 20.10.2004 20:11
Altair хех. 20.10.2004 20:27
Shaddix Люди тут добрые:) Это я уже давно понял. Всем помо... 20.10.2004 21:46
Ш. Нелль А вот может быть такая же задача, но используя тол... 21.10.2004 18:41
volvo Что значит без строк? имеется в виду отсутствие ст... 21.10.2004 18:55
Ш. Нелль Да... то есть строка вобще не используется... Масс... 21.10.2004 19:20
volvo Тогда можно сделать так:
uses crt;
var
i... 21.10.2004 19:36
Ш. Нелль Спасибо.. А вот что значит это #10#13
writeln(#10... 21.10.2004 19:53
Altair #10#13
перевыод курсора на новую строку
Inc();
... 21.10.2004 20:00
Ш.Нелль А вот почему я не могла найти увеление номера.. :u... 21.10.2004 20:53
GoodWind а уменьшение - dec(n); 22.10.2004 18:26
zx1024 У inc и dec (иногда) может быть второй аргумент. И... 23.10.2004 3:01
GoodWind
просто inc - сокращение от increment (повышение),... 23.10.2004 6:50
Atos
Да... Дедушка Вирт&парни из Borland, наверное... 23.10.2004 11:58![]() ![]() |
|
Текстовая версия | 23.12.2025 6:08 |