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

Question

Феликса

9 декабря, 20:52

+5

Ответы (1)

Знаете ответ?

Мишуня · Answer 1

Program i2;

var

a, b: integer;

begin

readln (a. b) ;

if (a+b) mod 2=0 then

writeln (a*b)

else

writeln (a/b) ;

end.