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

Sure! Below is a PascalABC code to check if the sum of two numbers entered from the keyboard is an even number:

pascalCopy code
Program CheckEvenSum;

var
  num1, num2, sum: Integer;

begin
  Write('Enter the first number: ');
  ReadLn(num1);
  
  Write('Enter the second number: ');
  ReadLn(num2);
  
  sum := num1 + num2;
  
  if sum mod 2 = 0 then
    WriteLn('The sum is even.')
  else
    WriteLn('The sum is odd.');
end.

When you run this program, it will prompt you to enter two integers. After entering the numbers, it will calculate their sum and determine if it's an even number or not. It will then display the result accordingly.