Ответы
Ответ дал:
0
var a, b:real;
begin
read (a, b);
writeln(pi*abs(a*a-b*b):0:10);
end.
P.S.

begin
read (a, b);
writeln(pi*abs(a*a-b*b):0:10);
end.
P.S.
Ответ дал:
0
var
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
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
Приложения:
Вас заинтересует
2 года назад
8 лет назад
10 лет назад
10 лет назад