Даны три числа . найти среднее арифметическое и - вопрос №3401394 от zhilkinatata 10.02.2020 19:40

Question

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

zhilkinatata · Answer

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.