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

Question

Информатика

Розалинда

21 декабря, 05:43

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

+2

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