Question

Заданы значения x y z Составить программу которая находит среднее арифметическое и среднее геометрическое этих чисел

Answer 1

Program Pr1;
uses crt;
var x,y,z:integer;
a:real;
Begin
clrscr;
readln(x,y,z);
a:=(x+y+z)/3;
writeln(a:8:3);
a:=exp(1/3*ln(x*y*z));
writeln(a:8:3);
end.