Даны целые числа x, y, z. Если x ≤ y ≤ z, то вывести на экран квадраты этих чисел. Если неравенство не выполняется, то вывести на экран наибольшее из чисел. СРОЧНО, нужно написать программу на Паскале с ОБЯЗАТЕЛЬНЫМ использованием условных вложенных операторов.
Ответы
Ответ дал:
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.
TTporparnmucT:
Спасибо большое) выручил)
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
7 лет назад