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

@Лев123 · Регистрация: 05.06.2013

Студворк — интернет-сервис помощи студентам

даны 2 числа написать программу для вычесления среднего арифймитического кубов этих чисел, и среднего геометрического модулей этих чисел

Комментарий модератора

Лев123, обращаю ваше внимание на необходимость соблюдения правил форума:
1) один вопрос - одна тема
2) заголовок должен отражать суть задания

@Any0019 · 05.06.2013, 14:09

Pascal

program sred_ar_i_ge;
 
var
  a, b: integer;
  srar, srge: real;
 
begin
  readln(a,b); {вводим числа}
  srar:=(Power(a,3)+Power(b,3))/2;
  srge:=Sqrt(Abs(a)*Abs(b));
  writeln(srar,'   ~ ',srge);
end.

Опции темы

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

Решение