Ответы и объяснения

2013-09-15T10:46:32+04:00
Var a, b, c: integer;

begin
  read(a, b, c);
  a := a mod 2; {в результате, в а будет остаток от деления на 2, то есть 1 - если число нечетное}
  b := b mod 2;
  c := c mod 2;
  write(a + b + c);
end.