Question

Если среди трех целых чисел x, y, z имеется хотя бы одно нечетное, то найти минимальное число, иначе – максимальное. Информатика паскаль

Answer 1

===== PascalABC.NET =====

begin

 var (x, y, z) := ReadInteger3;

 Print(x.IsOdd or y.IsOdd or z.IsOdd ? Min(x, y, z) : Max(x, y, z))

end.

Answer 2

Для решения данной задачи можно написать программу на языке программирования Pascal. Вот пример такой программы:

pascalCopy code
program MinOrMax;

var
  x, y, z, result: integer;

begin
  writeln('Введите три целых числа x, y и z:');
  readln(x, y, z);

  if (x mod 2 <> 0) or (y mod 2 <> 0) or (z mod 2 <> 0) then
  begin
    // Если хотя бы одно число нечетное, то находим минимальное из трех чисел
    result := x;
    if y < result then
      result := y;
    if z < result then
      result := z;
    writeln('Среди чисел ', x, ', ', y, ' и ', z, ' минимальное число: ', result);
  end
  else
  begin
    // Если все числа четные, то находим максимальное из трех чисел
    result := x;
    if y > result then
      result := y;
    if z > result then
      result := z;
    writeln('Среди чисел ', x, ', ', y, ' и ', z, ' максимальное число: ', result);
  end;
end.

Вы можете скопировать этот код в среду разработки Pascal и выполнить программу. Пользователь должен будет ввести три целых числа x, y и z, а затем программа определит, нужно найти минимальное или максимальное число среди них в зависимости от наличия хотя бы одного нечетного числа.