Задача по информатике, срочно!!! найти средне геометрическое трех чисел
Задача по информатике, срочно!!!
найти средне геометрическое трех чисел
Гость
Ответ(ы) на вопрос:
Гость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 означает округление числа до целой части
Не нашли ответ?
Похожие вопросы