|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.11.2007, 12:09 | #1 |
Регистрация: 07.11.2007
Сообщений: 3
|
Чётность-нечётность
Здравствуйте!
Подскажите пожалуйста, как сделать что бы прога определяла чётное или не четное число введено например в Edit. |
07.11.2007, 12:15 | #2 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Поделить число на 2 и посмотреть есть ли остаток....
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
07.11.2007, 12:16 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Function Odd(X: LongInt): Boolean;
Возвращает True, если X - нечетное число и False в противном случае.
Life is too short, play more...
Как правильно задавать вопросы |
07.11.2007, 12:19 | #4 |
Регистрация: 07.11.2007
Сообщений: 3
|
Извиняюсь, я очень начинающий в этом деле, то что разделить на 2 это понятно, но как узнать есть ли остаток? Если не затруднит то по конкретнее...
Спасибо! теперь понял! Последний раз редактировалось zetrix; 07.11.2007 в 14:35. |
07.11.2007, 12:21 | #5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Код:
Life is too short, play more...
Как правильно задавать вопросы |
07.11.2007, 12:22 | #6 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Что касается остатка и проверки чему он равен:
program Project2; {$APPTYPE CONSOLE} var a, b: integer; begin Readln (a); b := a mod 2; if b = 0 then Writeln ('Da') Else Writeln ('Net'); Readln; end.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
07.11.2007, 12:24 | #7 |
Регистрация: 07.11.2007
Сообщений: 3
|
Спасибо огромное!
|