Помогите сделать задачи в Pascal ABC.

1. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (ab) 1/2 (1/2 это степень).

2. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

3. Даны два круга с общим центром и радиусами R1 и R2 (R1>R2). Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2: S1=п (R1) ^2, S2=п * (R2) ^2, S3=S1 - S2. В качестве значения п использовать 3.14.

4. Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L=пD, S=пD^2/4. В качестве значения п использовать 3.14.

Question

Радослава

22 мая, 16:39

+3

Ответы (1)

Знаете ответ?

Митуля · Answer 1

1. var a, b, c:real;

begin

readln (a, b) ;

c:=sqrt (a*b) ;

writeln ('Среднее геометрическое = ', c)

end.