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.