Напишите программу в паскаль для решения следующей - вопрос №2395473 от DimasStar1 27.04.2022 16:35

Question

Информатика: Напишите программу в паскаль для решения следующей : для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел. если произведение этих четырех чисел больше их суммы, то выведите эти сумму и произведение. если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму.

DimasStar1 · Answer

Var a,b,c,d:real;beginreadln(a,b,c,d);if (a 0) and (b/c=2) thenbeginwriteln((a+b+c+d)/4);if a*b*c*b a+b+c+d then beginwriteln(a*b*c*b);writeln(a+b+c+d);end;endelsewriteln(a*2, ,b*2, ,c*2, ,d*2);end....