Предмет: Информатика, автор: dan2223445

даны три числа . найти среднее арифметическое и среднее геометрическое этих чисел.
Паскаль,для программы Algo

Ответы

Автор ответа: Giammy
0

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018


begin

 var (a, b, c) := ReadInteger3('a,b,c->');

 Println('Среднее арифметическое:', Round((a + b + c) / 3, 3));

 Println('Среднее геометрическое:', Round(Power(a * b * c, 1 / 3), 3));

end.



Приложения:
Похожие вопросы
Предмет: Математика, автор: MrLexaX3
Предмет: Математика, автор: Аноним