Begin13. Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти площади этих кругов S1и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2: S1=pi·(R1)2, S2=pi·(R2)2, S3=S1–S2.
var r1, r2, s1, s2, s3: real;
begin
write('Введите радиусы двух кругов ->');
readln(r1, r2);
s1:=pi*sqr(r1);
s2:=pi*sqr(r2);
s3:=s1-s2;
writeln('Площадь первого круга = ', s1:6:2);
writeln('Площадь второго круга = ', s2:6:2);
writeln('Площадь кольца = ', s3:6:2);
end.
|