Question

Задание: Вы ввели трехзначное число. Составьте программу, определяющую, есть ли в этом числе, четные цифры. Вопрос: в какой программе решается данная задача и каким образом?

Answer 1

Program OddNumeric;
var
  n, i: integer;
  a: array [1..3] of byte;
  b: boolean;
begin
  Write('Введите трехзначное число: ');
  Readln(n);
  a[1]:=n div 100; {1 цифра сотен}
  a[2]:=(n div 10) mod 10; {2 цифра десятков}
  a[3]:=n mod 10; {3 цифра количество единиц}
  b:=false;
  for i:=1 to 3 do
  begin
     if (a[i] mod 2)=0 then
         b:=true;
  end;
  if b then
   Writeln('В этом числе есть четные цифры')
  else
     Writeln('В этом числе нет четных цифр');
end.

Answer 2

Лучше всего сделать в pascal. 
Попробуй этот код:
var  n: integer;  boo: boolean;begin  write('Введите число: ');  readln(n);  boo:=odd(n);  case boo of     true: writeln('Нечетное');    false: writeln('Четное');  end;  readln;end.