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

Question

Информатика: Pascal ввести два числа. если сумма этих чисел нечетная, найти произведение, в противном случае, найти частное этих чисел.

ДмитрийРазумный · Answer

var x,y : integer;beginreadln( x, y );if ((x+y) mod 2 ) = 0 then writeln(x div y) else writeln(x * y);end....