Ввести три натуральных числа. Найти их 'среднее арифметическое, геометрическое,...

Question

Ввести три натуральных числа. Найти их 'среднее арифметическое, геометрическое, гармоническое
A B C

Answer 1

Program Znanija;
var a,b,c:integer;
begin

readln(a,b,c);

writeln('Среднее арифметическое: ', (a+b+c)/3);
writeln('Среднее геометрическое: ', sqrt(a*b*c));
writeln('Среднее гармоническое: ', 3/((1/a)+(1/b)+(1/c)));

end.