Question

2 числа вводятся с клавиатуры. проверить их сумма четное число? напишите программу для PascalABC

Answer 1

uses:  garfABC;

var:

  a : integer;

   b: integer;

begin

readln(a);

readln(b);

if Odd(a + b) then

 WriteLn('Нечётное')

else

 WriteLn('Чётное');

end.

Answer 2

Вот программа.