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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2014, 08:21   #1
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Восклицание Задача из e-olimp №1623

Чётные и нечётные числа
Дано три целых числа a, b, c. Определить, есть ли среди них хотя бы одно чётное и хотя бы одно нечётное.


Технические условия
Входные данные

Числа a, b, c, не превышающие по модулю 10000.

Выходные данные

Вывести "YES" или "NO".
vadimmmm вне форума Ответить с цитированием
Старый 15.03.2014, 10:44   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Делим чиса на 2. Если есть остаток, значит нечётное.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 15.03.2014, 16:04   #3
009
Пользователь
 
Регистрация: 09.02.2014
Сообщений: 33
По умолчанию

Код:
var i,f1,f2,t:integer;
begin
f1:=0; f2:=0;
for i:=1 to 3 do begin
read(t);
if odd(t) then inc(f1) 
else inc(f2);
end; 
if (f1>0) and (f2>0) then writeln('YES') else writeln('NO');
end.
009 вне форума Ответить с цитированием
Старый 15.03.2014, 21:42   #4
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Еще одна версия. Основана на том факте, что младший бит четного числа равен нулю:
Код:
var a, i, n, m : integer;
begin
n := 0; m := 0;
for i := 1 to 3 do
begin
   read(a);
   if (a = ((a shr 1) shl 1)) then
      inc(n)
   else
      inc(m);
end;
   if (n > 0) and (m > 0) then
      writeln('YES')
   else
      writeln('NO');
end.

Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача из e-olimp №915 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 6 16.03.2014 21:18
Задача из e-olimp №76 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 4 15.03.2014 21:00
Задача из e-olimp №8 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 3 15.03.2014 17:37
Задача из e-olimp №1622 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 1 15.03.2014 10:48
Задача на оптимальный расчет маршрута (задача в презентации) в табличном процессоре Excel Toofed Помощь студентам 0 30.11.2011 01:12