Question

Вычислите площадь кольца ширина которого равна 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.

Answer 1

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