Задание:
Даны 2 числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этихчисел.
Решение:
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.
Знаете другой ответ?