Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даны два числа найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел

Ответ оставил Гость

Var  a, b: real; begin  writeln(Введите два числа);  readln(a, b);  //Вводим числа а и b  writeln(Среднее арифметическое кубов этих чисел:  , ((a * a * a) + (b * b * b)) / 2 : 0 : 5);  {Печатаем среднее арифметическое кубов этих чисел с округлением до 5 знаков после запятой}  writeln(Среднее геометрическое модулей этих чисел:  , sqrt(abs(a) * abs(b)) : 0 : 5);  {Печатаем среднее геометрическое модулей этих чисел с округлением до 5 знаков после запятой}end.