Найти среднее арифметическое и среднее геометрическое трех чисел.

Question

Информатика

Афросин

12 сентября, 05:19

Найти среднее арифметическое и среднее геометрическое трех чисел.

+2

Ответы (1)

Знаете ответ на вопрос?

Филиппина · Answer 1

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.