Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| найти цифры,не входящие в десятичную запись числa n, множества |
| brahma |
 
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация:  0   |
Доброго времени суток всем.
Перым своим сообщением на этом форуме прошу помочь решить следующую задачу : Дано натурально число N. Найти цифры, не входящие в десятичную запись числа N. Рекомендуется применить множественный тип языка прогр. Pascal. Спс за внимание,жду ответа.. |
   |
 
|
  |
| klem4 |
Сообщение
#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 найти цифры,не входящие в десятичную запись числa n 8.12.2007 17:51
Ozzя set1:=[];
readln(n);
while (n > 0) do
begin
… 8.12.2007 18:03
brahma
в программе есть недочет, если ввести n = 0, резу… 9.12.2007 17:57 volvo Хотя бы вот так:
...
if n = 0 then set1 = [0]
else… 9.12.2007 18:10 brahma
..Точно.спасибо. 9.12.2007 18:21 Ozzя
Здесь тормознул. Виноват.
if i not (in set1) t… 10.12.2007 17:34 |
|
Текстовая версия | 4.05.2024 10:06 |
