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.