Question

Помогите написать в паскале!Ввести три целых числа x, y, z. Если хотя бы одно из них четное, то первому четному числу присвоить значение произведения этих чисел.Сообразил только как определить чётное или нечётное число а как дальше не могу понять! program Lab2;var x,y,z: integer;Begin Writeln ('Введите число');Readln (x);if x mod 2 = 0 then writeln ('Это число чётное') else //Иначеwriteln ('Число нечётно'); Writeln ('Введите число');Readln (y);if y mod 2 = 0 then writeln ('Это число чётное') else //Иначеwriteln ('Число нечётно'); Writeln ('Введите число');Readln (z);if z mod 2 = 0 then writeln ('Это число чётное') else //Иначеwriteln ('Число нечётно'); end.

Answer 1

Var x, y, z : integer;
Begin
  read(x, y, z);
  if x mod 2 = 0 then x:= x*y*z
  else if y mod 2 = 0 then y:= x*y*z
  else if z mod 2 = 0 then z:= x*y*z;
  writeln(x:3, y:3, z:3);
End.