Question

Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае, когда только одно из чисел a и b четное

Answer 1

var n:integer; 
begin 
readln(n); writeln(not odd(n div 100+n div 10 mod 10+n mod 10)); readln 
end.

Answer 2

Program n1;
var a,b: integer;
begin
readln(a,b);
if (odd(a)) xor (odd(b)) then write('true')
else write('false');
end.