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

1

Ответы и объяснения

Лучший Ответ!
2014-04-14T18:02:36+04:00
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.