Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.
Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы