Чётность и нечетность

@Akella!BLR! · Регистрация: 01.06.2013

Author24 — интернет-сервис помощи студентам

Задания из задачника: Boolean 10, 11
Даны два целых числа: A,B. Проверить истинность высказывания: "Ровно одно из чисел А и В нечетное" и "Числа А и В имеют одинаковую четность".
Помогите решить, желательно с объяснениями

Вот, то что я сделал

Pascal

uses PT4;
var
  a,b: integer;
  rez: boolean;
begin
  Task('Boolean9');
  read(a,b);
  if a < 0 then a:=(NOT a) + 1;
  if b < 0 then b:=(NOT b) + 1;
  rez:= (a mod 2 = 1) or (b mod 2 = 1);
  write(rez);
end.

Kodzaev · 02.06.2013, 14:05

Сообщение от Akella!BLR!

Ровно одно из чисел А и В нечетное"

Pascal

1	Writeln(Odd(a) xor Odd(b));

Сообщение от Akella!BLR!

Числа А и В имеют одинаковую четность

Pascal

1	Writeln((Odd(a) and (Odd(b)) or ((not Odd(a)) and (not Odd(b)))));

	02.06.2013, 14:05