Паскаль линейное программирование программа расчета среднего арифметического квадратных корней трех чисел
Var a, b, c, S: real begin read (a, b, c); S := (sqrt(a) + sqrt(b) + sqrt(c))/3; writeln (S); end.