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

Question

Информатика

Творимир

23 ноября, 08:32

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

+1

Ответы (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.