Pascal ввести два числа. если сумма этих чисел нечетная, - вопрос №9691975 от 01Таня10 08.01.2022 17:14

Question

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

01Таня10 · Answer

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