Помогите пожалуйста Pascal
Ввести два числа. Если сумма этих чисел нечетная, найти произведение, в противном случае, найти частное этих чисел.
Ответы
Ответ дал:
0
var x,y : integer;
begin
readln( x, y );
if ((x+y) mod 2 ) = 0 then writeln(x div y)
else writeln(x * y);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад