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

Question

Виктория Гуляева

Информатика

27 августа, 13:36

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Даниил Воронов · Answer 1

program n1;

var a1, a2, a3, a4, s, k:integer;

ar, ge:real;

begin

readln (a1, a2, a3, a4);

ar: = (a1+a2+a3+a4) / 4;

ge:=sqrt (a1*a2*a3*a4);

writeln (ar:0:3,' ', ge:0:3);

end.