Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае,...

Question

Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.

Comments

Найти "частное" этих чисел. Опечатка?

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2('Введите два целых числа через пробел:');
  if (a+b).IsEven then Writeln(a*b)
  else Writeln(a/b)
end.