Помогите сделать задачи в 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.
Ответы
Ответ дал:
0
1.var a,b,c:real;
begin
readln(a,b);
c:=sqrt(a*b);
writeln('Среднее геометрическое=',c)
end.
begin
readln(a,b);
c:=sqrt(a*b);
writeln('Среднее геометрическое=',c)
end.
Ответ дал:
0
2.var a,b,c,d,e,f:real;
begin
readln(a,b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=abs(a)/abs(b);
writeln('сумма=',c);
writeln('разность=',d);
writeln('произведение=',e);
writeln('разность =',f);
end.
begin
readln(a,b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=abs(a)/abs(b);
writeln('сумма=',c);
writeln('разность=',d);
writeln('произведение=',e);
writeln('разность =',f);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад