Question

Составить алгоритм и написать программу вычисления суммы A и B и определение её чётности.

Answer 1

Ответ:

Паскаль

uses crt;

var a,b,sum:integer;

begin

readln(a,b);

write(a+b);

if (a+b) mod 2 = 0 then write('Чётная')

                             else write('Нечётная');

end.

Answer 2

Ответ:

Паскаль

uses crt;

var a,b,sum:integer;

begin

readln(a,b);

write(a+b);

if (a+b) mod 2 = 0 then write('Чётная')

                             else write('Нечётная');

end.

Объяснение: