Найти среднее арифметическое и среднее геометрическое трех чисел.
Найти среднее арифметическое и среднее геометрическое трех чисел.
Гость
Ответ(ы) на вопрос:
ГостьProgram enot;
Var a,b,c: integer;
s,p: real;
begin
read(a,b,c);
s:=(a+b+c)/3;
p:= sqrt(a*b*c);
write('srednee ariphmeticheskoe = ', s:4:2, '; srednee geometricheskoe = ', p:4:2);
end.
Не нашли ответ?
Похожие вопросы