Создать программы в Паскале: 1. Даны два числа. Найти среднее арифметическое кубов этих...

Question

Создать программы в Паскале:
1. Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
2. Вычислить расстояние между двумя точками с заданными координатами (х1, у2) и (х2, у2)

Answer 1

Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('S.Ar. = ',(A*A*A+B*B*B)/2);
WriteLn('S.G. = ',Sqrt(Abs(A*B)));
End.

Var
   x1,y1,x2,y2:real;
Begin
Write('x1 = ');
ReadLn(x1);
Write('y1 = ');
ReadLn(y1);
Write('x2 = ');
ReadLn(x2);
Write('y2 = ');
ReadLn(y2);
WriteLn('R = ',sqrt(sqr(x1-x2)+sqr(y1-y2)));
End.