информатика(паскаль)
Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.
Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a, b) := ReadReal2('Введите два числа:');
Println('Ср.арифметическое', (a + b) / 2);
Println('Ср.геометрическое модулей', Sqrt(Abs(a * b)));
end.
Введите два числа: -56.32 138
Ср.арифметическое 40.84
Ср.геометрическое модулей 88.1598548093178