Question

Написать программу для решения задачи, используя ВЛОЖЕННЫЕ УСЛОВИЯ.
Даны три целых числа. Если их сумма положительная - найти среднее арифметическое этих чисел; если их сумма отрицательная - найти их среднее геометрическое (квадратный корень из произведения этих чисел); если сумма нулевая - заменить числа на противоположные.

Answer 1

Ответ:

Объяснение:

program abd;

var k: real;

a,b,c : integer;

begin

readln(a,b,c);

s:=a+b+c;

if s=0 then begin

                     a:=-a;

                     b:=-b;

                      c:=-c;

write (a,' ', b,' ', c);

                     end;

if s<0 then

k:= sqrt(a*b*c);

else

K:= s/3;

writeln(k);

readln

end.