Напишите программу в паскаль для решения следующей задачи: для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел. Если произведение этих четырех чисел больше их суммы, то выведите эти сумму и произведение. Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму. Иначе, выведите удвоенные значения этих чисел.
Напишите программу в паскаль для решения следующей задачи: для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел. Если произведение этих четырех чисел больше их суммы, то выведите эти сумму и произведение. Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму. Иначе, выведите удвоенные значения этих чисел.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program FourNumbers;
var
num1, num2, num3, num4: integer;
sum, prod, avg: real;
begin
writeln('Enter four numbers:');
readln(num1, num2, num3, num4);
if (num1 < 0) and (num2 = 2num3) then
writeln('Average:', avg:0:2);begin
avg := (num1 + num2 + num3 + num4) / 4;
writeln('Average:', avg:0:2);
end
else if (num1 num2 num3 num4) > (num1 + num2 + num3 + num4) then
begin
sum := num1 + num2 + num3 + num4;
prod := num1 num2 num3 num4;
writeln('Sum:', sum);
writeln('Product:', prod);
end
else if ((num1 < 0) and (num2 = 2num3)) and ((num1 num2 num3 num4) > (num1 + num2 + num3 + num4)) then
begin
avg := (num1 + num2 + num3 + num4) / 4;
prod := num1 num2 num3 num4;
sum := num1 + num2 + num3 + num4;
writeln('Product:', prod);
writeln('Sum:', sum);
end
else
begin
writeln('Doubled numbers:');
writeln(num12, ' ', num22, ' ', num32, ' ', num42);
end;
end.