Pascal ввести два числа. если сумма этих чисел нечетная, - вопрос №9691750 от azul1999 13.10.2022 22:51

Question

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

azul1999 · Answer

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