Question

СРОЧНО!!!!!
Написать программу на Паскале
Условие задачи Даны три числа, если они все четные найти их средне арифметическое, если они все нечетные
найти их сумму и произведение.​

Answer 1

// PascalABC.NET

begin

 var (a, b, c) := ReadInteger3('Введи три числа:');

 if a.IsOdd and b.IsOdd and c.IsOdd then

   Print(a + b + c, a * b * c)

 else if a.IsEven and b.IsEven and c.IsEven then

   Print((a + b + c) / 3)

end.