begin Write('Введите через пробел внутренний и наружный радиусы кольца: '); Readln(r1, r2); s := Pi * (sqr(r2) - sqr(r1)); Writeln('Площадь кольца равна ', s:0:5) end.
Тестовое решение:
Введите через пробел внутренний и наружный радиусы кольца: 3.85 7.12 Площадь кольца равна 112.69490
Answers & Comments
r1, r2, s: real;
begin
Write('Введите через пробел внутренний и наружный радиусы кольца: ');
Readln(r1, r2);
s := Pi * (sqr(r2) - sqr(r1));
Writeln('Площадь кольца равна ', s:0:5)
end.
Тестовое решение:
Введите через пробел внутренний и наружный радиусы кольца: 3.85 7.12
Площадь кольца равна 112.69490