Опубликовано 03.01.2018 по предмету Информатика от Гость

Помогите написать в паскале!
Ввести три целых числа
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.








Ответ оставил Гость

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.


Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы