Написать программу. заданы 4 числа. найти среднее арифметическое и среднее геометрическое этих чисел.

Question

Информатика

Варюша

8 января, 14:44

Написать программу. заданы 4 числа. найти среднее арифметическое и среднее геометрическое этих чисел.

+3

Ответы (1)

Знаете ответ?

Таюта · Answer 1

Vara, b, c, d:integer;

sr_ar, sr_gm:real;

begin

read (a, b, c, d) ;

sr_ar: = (a+b+c+d) / 4;

sr_gm:=power (a*b*c*d, 1/4) ;

writeln (sr_ar,' ', sr_gm) ;

end.