 Линейные программы, Не нашол |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Студентик13 |
  20.01.2006 18:33
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация:  -4   |
KLEM4 я не нашол в поиске задачи похожей на мою. Дай ссылочку пожалуйста.
Навсякий случай:Необходимо подсчитать число четных цифр используемых в записи N значного числа M Сообщение отредактировано: Студентик13 - 20.01.2006 18:39 -------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
   |
 
|
| klem4 |
20.01.2006 18:35
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Студентик13 |
20.01.2006 18:44
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация: -4 |
А как определить количество цифр(непомню
 )-------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
|
|
|
| klem4 |
20.01.2006 18:46
Сообщение
#4
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
заводишь счетчик,обнуляешь его, начинаешь цикл по выделению цифр из числа, выделяешь очередную цифру, проверяешь, если она четная то увеличиваешь счетчик на единицу ...
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Студентик13 |
20.01.2006 18:48
Сообщение
#5
|
|
Пионер Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация: -4 |
ОК
-------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
|
|
|
| Студентик13 |
20.01.2006 19:07
Сообщение
#6
|
|
Пионер Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация: -4 |
Блин(ашь стыдно за незнание). Klem4 подскажи пожалуйста как на четность проверять ато забыл
 -------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
|
|
|
| Ozzя |
20.01.2006 19:09
Сообщение
#7
|
 Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
odd
или mod 2 =0 - четное |
|
|
|
| Студентик13 |
20.01.2006 19:10
Сообщение
#8
|
|
Пионер Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация: -4 |
Спасибо Ozzенька
 KLEM4 удали это пожалуйста ато и так замечаний хватает Сообщение отредактировано: Студентик13 - 20.01.2006 19:11 -------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.07.2025 0:04 |