Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.03.2011, 22:46   #1
pahanzona
Пользователь
 
Регистрация: 05.02.2011
Сообщений: 14
По умолчанию Дано число a. Как определить, четное оно, или нечетное?

Дано число a. Как определить, четное оно, или нечетное?
pahanzona вне форума Ответить с цитированием
Старый 08.03.2011, 22:54   #2
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

Цитата:
Как определить, четное оно, или нечетное?
введи ето в гугл и припиши слово делфи, выидит около милиона вариантов ответов
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 08.03.2011, 23:00   #3
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

;
Код:
 if a mod 2=0 then writeln('Chetnoe')
Pein95 вне форума Ответить с цитированием
Старый 08.03.2011, 23:05   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

функция odd
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 08.03.2011, 23:35   #5
pahanzona
Пользователь
 
Регистрация: 05.02.2011
Сообщений: 14
Радость

Спасибо!
pahanzona вне форума Ответить с цитированием
Старый 09.03.2011, 12:49   #6
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

Код:
  even := (0 = (a and 1));
  odd := (1 = (a and 1));
оффтоп: гадкий шрифт, 1 от l не отличить.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из 6-ти заданных чисел найти максимум и минимума с указанием четное оно или нечетное [Паскаль] Gevorg7 Помощь студентам 2 12.12.2010 21:59
как на делфи написать прогу Ввести с клавиатуры целое число и определить делится ли оно нацело на9и на11 Buyaka Помощь студентам 8 02.01.2010 23:54
Дано натуральное число n. Определить наименьшую цифру с чётным номером - Задача по Си Lexeres Помощь студентам 6 16.11.2009 19:24
Ввести число N и определить делится ли оно без остатка на число M (VBA) Ivanich Microsoft Office Excel 7 24.04.2008 19:43