Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно D.

Пример

Program a1;

var a, b, c: integer;

Begin

Readln (a, b, c);

If (a+b>c) and (a+c>b) and (b+c>a) then

Writeln ("Треугольник построить можно")

Else writeln ("треугольник построить нельзя");

End.

Var h, D, s: real;

begin

write ('ширина кольца h: '); readln (h);

write ('отношение радиусов D: '); readln (D);

s:=pi*sqr (h) * (D+1) / (D-1);

writeln ('площадь кольца: ', s:7:3);

end.

/ / h = R - r R/r = D

/ / h = r * (D-1) = > r = h / (D-1)

/ / R = (D*h) / (D-1)

/ / s = pi * (sqr (R) - sqr (r)) = pi*sqr (h) * ((sqr (D) - 1) / (sqr (D-1))

/ / s = pi*sqr (h) * (D+1) / (D-1)

ширина кольца h: 2

отношение радиусов D: 1.5

площадь кольца: 62.832