Сделать в pascal abc. 1.даны два неотрицательных числа a и b. найти их среднее , т.е. квадратный корень из их произведения: (a*b)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.

wolk2amiri2 wolk2amiri2    2   12.07.2019 17:10    3

Ответы
sahsaperrucci sahsaperrucci  03.10.2020 01:57
1.var a,b,c:real;
   begin
readln(a,b);
c:=sqrt(a*b);
writeln('Среднее геометрическое=',c)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика