Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/145: Рейтинг темы: голосов - 145, средняя оценка - 4.72
Дмитрий98
0 / 0 / 0
Регистрация: 26.01.2015
Сообщений: 14
1

Проверка числа на чётность

26.01.2015, 17:13. Просмотров 27181. Ответов 4
Метки нет (Все метки)

Чётность числа. Напишите программу которая определяет является ли число чётным.

Заранее благодарю за помощь!!!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2015, 17:13
Ответы с готовыми решениями:

Если цифры двузначного числа различны - то проверить их на чётность, иначе найти удвоенную сумму цифр
Дано двузначное число. Выяснить,различны ли его цифры. Если да,то проверить их на чётность, иначе...

Чётность и нечетность
Задания из задачника: Boolean 10, 11 Даны два целых числа: A,B. Проверить истинность высказывания:...

Как проверить число на чётность?
Uses PT4; var a,b,c: Integer; z: boolean; begin Task('boolean8'); ReadLn(a,b,c);...

Проверка числа на чётность
Помогите пожалуйста разработать программу ввода числовых данных с клавиатуры, которая запрашивает...

Проверка числа на чётность
Какой из этих способов работает быстрее if (!(a%2)) или if (!(a&1))

4
Puporev
Модератор
56333 / 43115 / 29823
Регистрация: 18.05.2008
Сообщений: 102,463
26.01.2015, 17:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
if n mod 2=0 then write('Четное')
else write('Не четное');
0
JuriiMW
2214 / 1219 / 1666
Регистрация: 10.12.2014
Сообщений: 4,765
27.01.2015, 07:57 3
Есть встроенная функция Odd(N), возвращающая истину, если N нечётное.
Следовательно, для чётных чисел нужно добавить отрицание: NOT Odd(N)

Пример:
Pascal
1
2
3
4
if Odd(N) then
  WriteLn('Нечётное')
else
  WriteLn('Чётное');
И наоборот:
Pascal
1
2
3
4
if NOT Odd(N) then
  WriteLn('Чётное')
else
  WriteLn('Нечётное');
0
Алеекс
2 / 2 / 1
Регистрация: 23.10.2014
Сообщений: 55
27.01.2015, 12:51 4
Бытовой способ это делить на 2
Pascal
1
2
3
4
5
6
var a: integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Чётное') else writeln('Нечётное'); //Ага вот оно и есть mod--это деление с остатком. 
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27054 / 18092 / 7153
Регистрация: 22.10.2011
Сообщений: 31,857
Записей в блоге: 6
27.01.2015, 12:55 5
Алеекс, этот способ был уже описан во втором посте. Не надо повторяться.

По теме... Можно еще так:
Pascal
1
if a and 1 = 0 then writeln('Чётное') else writeln('Нечётное');
0
27.01.2015, 12:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2015, 12:55

Проверка введенного числа на чётность
Написать программу, которая проверяет, является ли введенное пользователем целое число четным. ...

Проверка числа на чётность/нечётность
Подскажите пожалуйста молодому-неопытному как проверить в С++ чётное число или нечётное? Есть...

Проверка числа на чётность. Ошибка с дампом памяти
Добрый вечер! В результате проверки числа на чётность при помощи ассемблерной вставки выдает:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru