Даны два целых числа. Если оба они чётные, то найти разность этих чисел, иначе вычислить...

Question

Даны два целых числа. Если оба они чётные, то найти разность этих чисел, иначе вычислить их произведение. По программе паскаль. Помогите срочно!!! ​

Answer 1

Ответ:

var

a: integer;

b: integer;

begin

readln(a,b);

if (a mod 2 = 0) and (b mod 2 = 0)

   then a:=a-b

   else a:=a*b;

writeln(a);

end.

Объяснение: