Question

С клавиатуры вводятся два символа. Определить четная ли сумма их кодов?( паскаль)

Answer 1

Var c1,c2:char;
begin
readln(c1,c2);
if odd(ord(c1)+ord(c2))
 then writeln('Сумма кодов нечётна')
 else writeln('Сумма кодов чётна');
end.

Пример:
AB
Сумма кодов нечётна