Задача из e-olimp №1623

[vadimmmm]

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


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

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

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

Вывести "YES" или "NO".

[Smitt&Wesson]

Делим чиса на 2. Если есть остаток, значит нечётное.

[009]

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.

[ViktorR]

Еще одна версия. Основана на том факте, что младший бит четного числа равен нулю:

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.

Как-то так, ...