program MaxSumProduct; var x, y, z, sum, product, max: integer; begin writeln('Enter three numbers:'); readln(x, y, z); sum := x + y + z; product := x * y * z; if (sum > product) then max := sum else max := product; writeln('Max value:', max); end.
Данная программа сначала считывает три числа с клавиатуры, затем вычисляет сумму и произведение этих чисел. Далее программа сравнивает сумму и произведение и находит максимальное значение, которое выводит на экран.
Пример решения на Pascal:
program MaxSumProduct;var
x, y, z, sum, product, max: integer;
begin
writeln('Enter three numbers:');
readln(x, y, z);
sum := x + y + z;
product := x * y * z;
if (sum > product) then
max := sum
else
max := product;
writeln('Max value:', max);
end.
Данная программа сначала считывает три числа с клавиатуры, затем вычисляет сумму и произведение этих чисел. Далее программа сравнивает сумму и произведение и находит максимальное значение, которое выводит на экран.