Question

1. Найти среднее арифметическое и среднее геометрическое двух чисел.Написать программу (Паскаль)

Answer 1

Var a, b, sa, sg:real;
Begin
sa:=(a+b)/2;
sg:=sqrt(a*b);
Write(sa,’ ‘,sg);
End.