begin Write('Введите два числа через пробел '); Readln(a, b); Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2); Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b))) end.
Тестовое решение: Введите два числа через пробел -13.5 17.43 Среднее арифметическое кубов равно 1417.4722035 Среднее геометрическое модулей равно 15.3396544941534
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.
Неизбежны. Потому что разумное человечество развивается, но при этом в людях все еще находиться их животная сущность. Это у обезьян в бананах счастье, А страны, люди хотят нахапать побольше чтобы жизнь была для них лучше и легче. Неизбежны войны, лучшие умы человечества работают чтобы изобрести новые устройства для захвата и доминирования. И только после того как технологии устареют или потеряют стратегическое преимущество их внедряют в жизнь простых людей. Так появился интернет, сотовый телефон, вай фай. Но не все так плохо. С каждой новой информационной революцией происходит подъем уровня сознания и интеллекта среди людей что означает что информационные революции будут всегда.
a, b: real;
begin
Write('Введите два числа через пробел ');
Readln(a, b);
Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);
Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))
end.
Тестовое решение:
Введите два числа через пробел -13.5 17.43
Среднее арифметическое кубов равно 1417.4722035
Среднее геометрическое модулей равно 15.3396544941534
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.