Question

Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний

Answer 1

var
R1, R2, S1, S2, S3: real;
begin
writeln('Введите радиусы R1 и R2 кругов (R1 > R2):');
readln(R1, R2);
S1 := pi * sqr(R1); { <-- Площадь внешнего круга }
S2 := pi * sqr(R2); { <-- Площадь внутреннего круга }
S3 := S1 - S2; { <-- Вычисляем площадь кольца }
writeln('Результат:');
{ Выводим результат на экран: }
writeln(' S1 = ', S1:0:2);
writeln(' S2 = ', S2:0:2);
writeln(' S3 = ', S3:0:2);
readln
end.