Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y) - Free Pascal
Формулировка задачи:
1. Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ).
2. Даны целые числа X,Y,Z. Вычислить MIN(X,Y,Z X-Y).
Решение задачи: «Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y)»
textual
Листинг программы
Program z3;
Uses Crt;
Var x,y,z:integer;
Begin
Clrscr;
WriteLn('Введите числа: ');
Readln(x,y,z);
z:=xyz;
y:=x+y;
if z<y then
Writeln('Наибольшее из аргументов: ', y)
else
Writeln('Наибольшее из аргументов: ', z);
ReadLn;
End.
Объяснение кода листинга программы
Список действий в коде:
- Ввод исходных данных (чисел X, Y, Z) с помощью функции Readln().
- Присваивание значения переменной Z значению, равному произведению X, Y, Z (XYZ).
- Присваивание значения переменной Y сумме X и Y.
- Сравнение значений переменной Z и Y.
- Вывод на экран наибольшего из аргументов с помощью функции Writeln().
- Ввод любого значения с помощью функции ReadLn() для выхода из программы.
- Окончание работы программы с помощью оператора End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д