Question

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

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 означает округление числа до целой части