Question

Решить в Паскале m=max(x,y,z)/min (x,y)+5

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 x,y,z:integer;
 m:real;
 
function maxi(x,y:integer):integer;
begin
 if x>y then maxi:=x else maxi:=y;
end;

function mini(x,y:integer):integer;
 begin
  if x<y then mini:=x else mini:=y;
 end;
 
begin
readln(x);
readln(y);
readln(z);
m:=maxi(maxi(x,y),z)/mini(x,y)+5;
writeln(m);
end.

Пример ввода:
1
2
3
Пример вывода:
8

Answer 2

Конечно! Я могу помочь вам решить задачу на Паскале.

Задача состоит в том, чтобы найти максимальное значение между тремя числами x, y и z, а затем разделить его на минимальное значение между числами x и y, и добавить 5 к результату.

Для решения этой задачи вам потребуется написать код на языке Паскаль, который будет выполнять эти операции. Вот пример решения:

program MaxMinCalculation;
var
  x, y, z, m, maxVal, minVal: Integer;
begin
  // Ввод значений x, y и z с клавиатуры
  WriteLn('Введите значения x, y и z:');
  ReadLn(x);
  ReadLn(y);
  ReadLn(z);

// Находим максимальное значение между x, y и z
  maxVal := x;
  if y > maxVal then
    maxVal := y;
  if z > maxVal then
    maxVal := z;

// Находим минимальное значение между x и y
  minVal := x;
  if y < minVal then
    minVal := y;

// Вычисляем результат
  m := (maxVal div minVal) + 5;

// Выводим результат на экран
  WriteLn('Результат: ', m);
end.

В этом примере мы используем переменные x, y, z, m, maxVal и minVal. Сначала мы вводим значения x, y и z с помощью команды ReadLn. Затем мы находим максимальное значение с помощью условных операторов if и присваиваем его переменной maxVal. Затем мы находим минимальное значение между x и y и присваиваем его переменной minVal. Наконец, мы вычисляем результат, разделяя максимальное значение на минимальное значение и добавляя 5. Результат выводится на экран с помощью команды WriteLn.

Надеюсь, что это поможет вам решить задачу! Если у вас есть еще вопросы, пожалуйста, дайте мне знать.