Question

Даны целые числа x, y, z. Если x ≤ y ≤ z, то вывести на экран квадраты этих чисел. Если неравенство не выполняется, то вывести на экран наибольшее из чисел. СРОЧНО, нужно написать программу на Паскале с ОБЯЗАТЕЛЬНЫМ использованием условных вложенных операторов.

Answer 1

Ответ:

program xyz;

var

 x, y, z, b: Real;

begin

 Write ('Введите X, Y, Z: ');

 ReadLn (x, y, z);

 if (x <= y) and (y <= z) then begin

   WriteLn ('Квадраты чисел: ', x * x :10 :5, y * y :10 :5, z * z :10 :5)

 end else begin

   if x > y then

     if x > z then

       b := x

     else

       b := z

   else

     if y > z then

       b := y

     else

       b := z;

   WriteLn ('Наибольшее число = ', b :10 :5);

 end;

 ReadLn;

end.

Answer 2

Конечно! Вот пример программы на Паскале, реализующей данную логику:

pascalCopy code
program MaxOrSquares;

var
  x, y, z, result: integer;

begin
  // Ввод чисел
  write('Введите значение x: ');
  readln(x);
  write('Введите значение y: ');
  readln(y);
  write('Введите значение z: ');
  readln(z);

  // Проверка условий
  if (x <= y) and (y <= z) then
  begin
    // Вывод квадратов чисел
    writeln('Квадраты чисел:');
    writeln('x^2 = ', x * x);
    writeln('y^2 = ', y * y);
    writeln('z^2 = ', z * z);
  end
  else
  begin
    // Нахождение наибольшего числа
    if (x > y) and (x > z) then
      result := x
    else if y > z then
      result := y
    else
      result := z;

    // Вывод наибольшего числа
    writeln('Наибольшее число: ', result);
  end;
end.

Программа запрашивает у пользователя значения переменных x, y и z, затем проверяет условие x ≤ y ≤ z. Если условие выполняется, выводятся квадраты чисел x, y и z. В противном случае находится наибольшее число и выводится его значение.

Обратите внимание, что данная программа предназначена для компиляторов Паскаля, поддерживающих стандарт Pascal или Turbo Pascal.