 найти цифры,не входящие в десятичную запись числa n, множества |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| brahma |
  8.12.2007 13:51
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация:  0   |
Доброго времени суток всем.
Перым своим сообщением на этом форуме прошу помочь решить следующую задачу : Дано натурально число N. Найти цифры, не входящие в десятичную запись числа N. Рекомендуется применить множественный тип языка прогр. Pascal. Спс за внимание,жду ответа.. |
   |
 
|
  |
Ответов
| klem4 |
8.12.2007 17:37
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
в программе есть недочет, если ввести n = 0, результат будет не верным.
+ компилятор это не пропустит: if i not (in set1) then -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| brahma |
9.12.2007 13:57
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Цитата(klem4 @ 8.12.2007 18:37)  в программе есть недочет, если ввести n = 0, результат будет не верным. + компилятор это не пропустит: if i not (in set1) then В любом случае говоря о натуральных числах нужно заранее оговаривать включен ли ноль в их состов или нет, о чем в условиях умалчивается. Как изменить программу для n=0 ? компилятор пропустит это : if not(i in set1) then |
|
|
|
Сообщений в этой теме
brahma найти цифры,не входящие в десятичную запись числa n 8.12.2007 13:51
Ozzя set1:=[];
readln(n);
while (n > 0) do
begin
... 8.12.2007 14:03 volvo Хотя бы вот так:
...
if n = 0 then set1 = [0]
else... 9.12.2007 14:10
brahma
..Точно.спасибо. 9.12.2007 14:21 Ozzя
Здесь тормознул. Виноват.
if i not (in set1) t... 10.12.2007 13:34 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 18:22 |