Найти площади кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2: S1 = pi*Sqr(R1), S2 = pi*Sqr(R2), S3 = S1 — S2 — Pascal(Паскаль)

Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2).

Program Begin13;

Var
  R1, R2, S1, S2, S3: Real;

Begin
  ReadLn(R1, R2);
  S1 := pi * Sqr(R1);
  S2 := pi * Sqr(R2);
  S3 := S1 - S2;
  WriteLn('S1 = ', S1, ' S2 = ', S2, ' S3 = ', S3);
  ReadLn;

End.

Leave a Comment