Задача по информатике, срочно!!! найти средне геометрическое трех чисел

Question

Задача по информатике, срочно!!!
найти средне геометрическое трех чисел

Comments

нужна конкретная программа или просто формула?

---

мне просто надо решить задачу,program Н4

---

на языке Pascal?

---

да

Answer 1

Program H4;
var a,b,c:Integer;
Begin
Writeln('Введите 3 числа');
Read(a,b,c);
Writeln(sqrt(a*b*c):0:0);
readln;
end.

Ввод чисел через пробел
:0:0 означает округление числа до целой части