ИЕ
Иван Емельянов
даны 3 числа, найти среднее арифметическое этих чисел если они положительные и среднее геометрическое в противном случае.
в турбо паскаль
в турбо паскаль
var a,b,c: real;
begin
read(a,b,c);
If ((a>0) and (b>0) and (c>0)) then Writeln((a+b+c)/3) else
Writeln(exp(ln(abs(a*b*c))/3));
end.